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PROLOGO 


Este libro recoge el listado completo del programa de desensamblado de la ROM de 
16 K del ZX Spectrum así como una guía para el programador en Código Máquina del 
Microdrive y el Interface 1. Se dan los detalles suficientes para que usted, como programador 
de Código Máquina, sea capaz de comprender el funcionamiento del ZX Spectrum y su 
Interface 1 y de diseñar rutinas en C.M. para sus propias finalidades. 

El desensamblado de la ROM, utilizado en este libro, es una versión del desensamblador 
ZXDISASM de Phipps Associates publicado en el libro «Spectrum Pocket Book». -Algunas 
de las características de este desensamblador son las siguientes: 


— Se utilizan mnemónicos Zilog, por ejemplo LD A, (HL) en vez de MOV A,M. 
— Los saltos relativos llevan el desplazamiento decimal con su signo y el resultado. 
— Se toman por defecto valores hexadecimales (hex) y se imprimen sin sufijos. 

— Los valores decimales llevan delante un signo más o menos. 

— Algunas instrucciones de reinicialización («restart») llevan detrás bytes de datos. 


Las direcciones absolutas de todas las variables de sistema y de algunas rutinas de impor- 
tancia han recibido los nombres estándar, es decir, se las nombra con la misma designación 
que en el Manual del Spectrum. Otra consideración adicional que hemos hecho ha sido la de 
suponer que, en todo momento, el registro de índice Y apunta a la variable ERRNR situada 
en la dirección 5C3A. Por consiguiente, a los desplazamientos se les ha añadido el pre- 
fijo Y—. Así pues los desplazamientos están compuestos por el citado prefijo seguido del 
nombre habitual. 

En el listado, la primera columna corresponde a la dirección de memoria. La segunda 
columna contiene la instrucción en hexadecimal. El resto de la línea está ocupado por la 
instrucción expresada en mnemónicos del lenguaje ensamblador. A lo largo de todo el listado 
se han insertado los comentarios suficientes para facilitar su comprensión. 

En todo el libro se ha sustituido el símbolo «%*» por el símbolo de la «£». Por lo tanto, 
OPEN £ y CLOSE <£ son las palabras reservadas de color rojo debajo de las teclas co- 
rrespondientes a los dígitos 4 y 5 del teclado del Spectrum. 


INTRODUCCION A LA EDICION 
ESPANOLA 


En este libro el contenido de las definiciones literales (DEFB) y de comentarios del 
listado se presenta en inglés para no desvirtuar la línea original de acuerdo con la cual han 
sido concebidos por el autor. Hacerlo de otra forma podría provocar en el lector una 
desorientación. Entre otras comprobaciones, se hallaría con la de que en pantalla los co- 
mentarios o definiciones le aparecerían en idioma original, es decir en inglés, en contraste 
con las traducciones que se hubieran incorporado al listado. Conviene precisar que cualquier 
inducción al error en la interpretación de un dato original, en un programa como el que se 
ofrece, podría provocar mayores perjuicios que los que pudieran derivarse del desconocimiento 
del idioma en el que ha sido confeccionado el listado. 

Al lector que no se halle suficientemente familiarizado con el idioma inglés se le 
brinda un pequeño vocabulario Inglés-Español de las palabras que en el listado, por las 
razones expuestas, se conservan en su idioma original. Naturalmente no se traducen ni 
comandos ni sentencias, pues el lector ha de ser, como programador en Código Máquina, 
un buen conocedor de las mismas. Por otra parte, claro está, no tiene objeto la traducción 
de comandos y sentencias. 


VOCABULARIO INGLES-ESPAÑOL 


A 


add 
address 
ampersand 
anything 
apostrophe 
argument 
array 
arrow 
assume 
asterisk 
at-sign 


B 


backslash 
bar 

big 
border 
brace 


bracket 
buffer 


circle 
clear 
code 
colon 
comma 
compare 
constant 
copy 

ctl char 


CH 


channel 
char 
character 
check 


= sumar 


dirección 

signo « 

algo 

apóstrofe 
argumento 

tabla, vector, matriz 
flecha 


suponer 
asterisco 
= signo O 


= retroceso 


barra 
grande 
borde 


= corchete, llave 


(left brace = corchete izquierdo 
right brace = corchete derecho) 


= corchete 
= memoria intermedia 


= círculo 


restaurar, borrar, poner a cero 
código 

dos puntos 

coma 

comparar 

constante 

copia, copiar 


= carácter de control 


= canal 


abreviatura de carácter 
carácter 


= comprobar 


D 


data = datos 

decimal point = punto decimal 

default = defecto 

delete = supresión, suprimir, eliminar, borrar 


descr 
descriptor 
device 
device redq. 
display 
down up 


E 


end 

entry 

equal 

erase 
exclamation 
exch 
exchange 
exit 


get 
good 
greater than 


H 


half 
hash 
header 


abreviatura de descriptor 
descriptor 

dispositivo 

dispositivo requerido 


representación visual, visualización 
= abajo arriba 


= fin 


entrada 

igual 

borrar 

exclamación 

abreviatura de exclamación 
intercambio, intercambiar 


= salida 


= fichero 


encontrar 

fijar 

señalizador, indicador (bandera) 
formato 


= encontrado 


tomar, obtener 
bueno, correcto 


= mayor que 


= medio, mitad 


información no válida 


= cabecera 


if 

if so 
inmediate 
integer 
interrupt 
invalid 
inv 
inverse 


K 


key 
keyboard 
keypress 


IL 


left 
length 
less 

less than 
letter 
line 

load 

lost 

low 
lower 


make 
map 
minus 
mode 
move 
multiply 


= sí 


en este caso, sí es así 
inmediato 

entero 

interrupción, interrumpir 
no válido 

abreviatura de inverso 


= inverso, invertido 


salto, saltar 


= llave, tecla 


teclado 


= pulsación de tecla 


= izquierda 


longitud 
menos 
menos que 
letra 

línea 

carga, cargar 
perdido 

bajo 


= el más bajo, parte inferior 


= hacer 


mapa 
menos 
modo 
movimiento, mover 


= multiplicar 


name 
negate 
nonsense 
number 


param 
parameter 
paren 
parenthesis 
period 

plus 

pound 
printer 
prog 
program 


range 
reg 
register 
repeat 
regd 
required 
restack 
right 


nombre 
negar 
carente de sentido 


= número 


desplazamiento 
o 

fuera 

salida 


= abreviatura de parámetro 


parámetro 

abreviatura de paréntesis 
paréntesis 

período 

más 

libra 

impresora 

abreviatura de programa 
programa 


= comillas 


signo de interrogación (?) 


= rango, gama 


abreviatura de registro 
registro 

repetir 

abreviatura de requerido 
requerido 

colocar otra vez en la pila 
derecho, correcto 
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save = salvar, almacenar, guardar 
seroll = desplazamiento de imagen en pantalla (enrollamiento) - 
screen = pantalla 
second = segundo 
select. = abreviatura de seleccionar 
semicolon = punto y coma 
(to) set = activar 
skip = salto, saltar 
slash = barra 
someone = alguno 
space = espacio 
square = cuadrado 
stack = pila 
start = inicio, arranque, empezar 
statement = sentencia, declaración 
step = paso 
store = store 
stream = corriente 
string = cadena 
subscript = subíndice 
subtract = restar 
syntax = sintaxis 
T 
table = tabla 
tape = cinta 
ten = diez 
test = comprobación, comprobar 
then = entonces 
timing = temporización 
too = demasiado 
true = verdad, verdadero 
truncate = truncado 
U 
underline = subrayado, subrayar 
up = arriba 
(up arrow) = (flecha hacia arriba) 
V 


value = valor 
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wait espera, esperar 


when cuando 

white = blanco 

without sin 

wrong = equivocado, erróneo. 
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la ROMCopeyriaht 1982 Sinclair Research Ltd 
Copyriant 1983 Cames of Skill Ltd 


¿Contenido de 
¿Desensamblado Mai 


vo. .. 


los nombres estandar para las direcciones 
¡absolutas de las variables del sistema 

¡El prefijo Y- implica que el indice 1IY toma como origen ERRNR 
¡ies decir YMUDE = +7) 


¡Se utilizan 


constantes 


2. am 


CR EQU +13 
, HI EQU +255 
, 
¡Direcc Hex Op Uperando 3; comentarias 
¡El “reset* de conexion salta a este punto 
0000 F3 DI 
0001 AF XOR A 
0002 11FFFF LD DEJFFFF 
0005 C3CE11 JE 11CE 
RST (% seguido de un byte 


Provoca la entrada 
Numera de errar 


o bien numero de funcicn del 


esta conectado) 
Interface 


al Interface 1 (si 


0008 2A5D3GC LD HL.) (CCHADD) 

00056 2235F35C LD (XFTR) ¿HL 

000€ 1843 JR +6730033 

; RST 10 sacar (A a la corriente en usa 
0010 C3F215 JE 13SF2 

0013 FEFFFFFF DEFE: HI,HI,HI, HI 

0017 FF DEFE HT 

; RST 18 obtiene un caracter para interpretarlo 
0018 245D3C LD HL.) CCHADD ) 

001E 7E LD 68, CHL.) 

001C CD7D00 CALL D07D 

001F DO RET NC 

: RST 20 obtener el siguiente caracter 
0020 CD7400 CALL 0074 

0023 18F7 JR -93001C 

0023 FFFFFF DEFE HI, HI, HI 

; REST 25 calculador de coma +loatante 
0028 C33E33 JE FECALC  3335ÉE 

002E FEFFFFFF DEFE: HI, HI, HI) HI 

002F FF DEFE HI 

: RST 30 obtener un espacio de EC bytes 
0030 £53 FUSH EC 

0031 2A613€C L.D HL), CNORKSF') 

0034 ES FUSH Hi. 

00335 C3I9E16 JE 169%É 

: RST 32 Mado de interrupcion 1 => aqui 
¿ Contador de areas y exploracion de teclado 
0038 FS FUSH AF 

0039 ES FUSH HL. 

003A 2A783C L.D HL.) (FRAMES 2 

003D 23 INC HL. 

003E 227850 LD (FRAMES), HL 

0041 7E LD AsH 
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0042 ES OR L 


0043 2003 JR NZ,+330048 
0045 FD3440 INC (TY+YFRAME+2)31sb 
0048 C3 FUSH EC 

0049 DS FUSH DE 

0044 CDEFO0Z2 CALL KSCÁN 302EF 
0040 D1 FOF DE 

004€ C1 FOF EC 

004F El FOF HL. 

0050 Fi FOF AF 

0051 FE El 

0052 (9 RET 

y salvar codigo de error y actualizar la pila 
0053 El FOF HL 

0034 4E LD Ls CHL.2 

0055 FD7300 L.D CTY+YERRKNR) s,L. 
0058 ED7ESDSC LD SF) CERRKSF) 
0050 CIC3l6 JE 1605 

D0OSF FFFFFFFF DEFE HI¿HT,HI,HI 
0063 FFFFFF DEFE HI,HI,HTI 

¿o Interroecion na enmascarable: fallo del equipo de desarrolla 
y ICE? 

0066 FS FUSH AF 

0067 ES FUSH HL 

0068 2AEOSC LD HL) CSFAREZO) 
006 76 LD AsH 

0060 ES OR L 

006 2001 AS NZ,+1530070 
D0O4F ES JE CHI) ¿HL=0 
0070 El FOF HL. 

0071 Fi FO AF 

0072 ED4G RETN 

í Seleccionar un caracter de la linea que =<e este interpretando 
0074 2ZASDSC L.D Hb.) CCHADD) 
0077 23 INC HL. 

0078 223D3C LD CCHADDO , HL. 
007% 7E LD As CHL 

0070 (9 RET 

¡ Comprobar el caracter a interpretar 
007D FEZI CF 21 

007F DO RET NC 

0080 FEOD CF ER 

0082 C8 RET Z 

0083 FE1O CF 10 

00835 D8 RET C 

0084 FE18 CF 18 

0088 3F ECF 

0089 D8 RET |» 

008A 2: INC HL 

008EÉ FE16 CF 16 

008Db 3801 JR 2,+130090 
008f 23 INC HL 

0090 37 sCF 

0091 2235D35C LD (CHADD) , HL 
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0094 (9 RET 

; Tabla del teclado ampliada 

s Nota: el bit 7 del ultimo byte de todas 
y activado 

0095 EF DEFE 07 

0096 324EC4 DEFE: “RND” 

0099 494E4E453 DEFE * TNKEYS" 

009D 39A4 

009F 5009 DEFE FI” 

0061 46CÉ DEFE “FN” 

0043 504F494É DEFE “FOTNT/ 

00A7 DA 

008 3534339243 DEFE 'SUOREENS/ 

00AC 454ER4 

00AF 415434D2 DEFE “ATTR/ 

0063 41D4 DEFE “AT” 

0065 3544102 DEFE “TAE” 

0068 56414CA4 DEFE “VALS” 

DOEC 434F4405 DEFE CODE” 

00c0 56410 DEFE VAL.” 

0003 4043CE “LEN? 

0006 35349CE “SIN' 

0009 434FD3 “206” 

00C0C 5441CE “TAN” 

00CF 4153CÉ “ASN/ 

0002 4143D3 “ALS 

0005 4154CE “ATN/ 

0008 ACE “LN? 

00DA 45358D0 “EXF* 

000D 494ED4 “INT/ 

D0E0 S3asiD2 “SQR 

003 5347CE S6N * 

006 4142D3 “AES? 
00569 504543CE “FEEK! 
DOED 49CE “TH” 
O0ÉF 333u3DZ + “USER” 
DOFZ 530439244 “STRSG 
DOFE 43483Z2A4 “CHRS 
DOFA 4E£4FD4 DEFE “NOT?! 
DOFD 4249CE DEFE “EIN” 
0100 4FD2 DEFE *QR? 
0102 414EC4 DEFE “AND” 
0105 3CED DEFE Cal 
0107 3EED DEFE: el 
0109 3CEE DEFE MS 
0106 40494EC3 DEFE “LINE? 
010F 544843CE DEFE: “THEN? 
0113 34CF DEFE: TO” 
0115 535443D0 DEFE “STEF? 
0119 44434620 DEFE "DEF FN” 
011D 46CE 

011F 4341D4 DEFE CAT” 
0122 464F3524D DEFE “FORMAT” 
0126 41D4 


e 


ss 
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0160 
0164 

0166 
0144 
0160 
0171 
0174 
0178 
0174 
017É 
017F 
0183 
0187 
018€ 
018 
0192 
0183 
0199 
019É 
019F 
0143 
0146 
0149 
DIAL 
0160 
0153 
0163 
017 
016É 
016 
0100 
0104 
0107 
01CE 
01CC 


4D4F56C3 
45524153 
(047 


. 4F50434É 
S 20A3 


43404F33 


E A2ZDA3 
ADA AZ 
2 OS 


36433249 
46509 
424343D0 
43493243 
4005 
494ECE 
50413043 
D2 


4640413 


(8 

ARIZA AZ 
48D4 

YA ESOS 
E 12 130 
4F3643502 
43504 
40305249 
4ED4 
ARCA 
04 
ER D0 


34415401 
AA 
aru2Cua 
4E43GDZ 
ARA Fada 
4D 
a 
494E3G5C 
ata CD 
5243500 
4b4FDZ 
474 F203% 
CF 
47 4AFZ003 
302 
AA ESOSO 
D4 
424F41C04 
404933D4 
4045D4 
5041390393 
oo 


4E4558D4 


DEFE 
DEFE 


-DEFE 


DEFE 


DEFE 


DEFE 


DEFE 
DEFE 


DEFE 
DEFE 


DEFE 
DEFE 
DEFE 
DEFE 


DEFE 
DEFE 


DEFE 


“MOVE? 
“ERASE” 


“OFEN £” 
“CLOSE £” 
MERGE” 
*VERTFY * 


“BEEP” 
“CIRCLE” 


“ TNK? 
“FAFER” 


“FLASH” 
“ERIGHT/ 
“INVERSE * 
“QUER” 
“QUT* 
“LERINT" 
“LLIST" 
“STOP? 
“READ” 
“DATA” 
“RESTORE” 


“NEN? 
“BORDER” 
* CONTINUE * 
DIM” 
“REM” 
“FOR? 
0 TO” 
60 SUE?” 
*TNFUT/ 


“LOAD” 
LIST” 
“LET* 
“FAUSE? 


“NEXT” 
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01D0 504F4EC3 DEFE “PORKE? 


0104 50352494E DEFE *FRINT” 
0108 D4 

01D9 304C4FD4 DEFE “PLOT” 
010D 3S235CE DEFE “RUN” 
01£0 534153603 DEFE “SAVE” 
01£E4 352414E44 DEFE *RANDOMIZE ” 
01E8 4F4D493A 

01EC CS 

01ED 49C6 DEFE LLF* 
01EF 434CD3 DEFE *CLS”* 
01F2 445241D7 DEFE *DRAN” 
01F6 43404341 DEFE * CLEAR” 
01FA D2 

01FE 524339433 DEFE “RETURN” 
01FF 32CE 

0201 434F30D9 DEFE: *COFY* 


y Datostse ha omitido la codificacion en lemguaje ensamblador) 
; Tabla de codigos de tecla dispuesta por orden de exploracion 
; de teclado 

0205 42483936 ; EHY AS 

0202 335544736 ; S TGV 

020D 4445537 ; N JU? 

0211 34524643 ; 4ARFC 

0215 4044938 ; MKIS 

0219 33454458 ; 3EDX 

021D 0E4C4F39 ; e-mode L 09 

0221 323573533 ; Z2RNSzZ 

02235 20003030 : space ENTER 2 0 

0229 315141 $ QA 


y codigos de las teclas del modo extendido en orden alfabetico 
0220 ESC4E0E4 ¿AECD READ EIN LFRINT DATA 

0230 EXECEDEE ¿EFGH TAN SEN AES SQR 

0234 AFEOE1ICO 3LIAKL CODE VAL LEN USRK 

0238 AZAGEEAD ¿MNOF FI INKEYS$ FEEK TAE 


0230 EZERESAS ¿QRST SIN INT RESTORE END 
0240 C2E1E3E9 ¿ UVHX CHR$ LLIST COS EXF 
0244 C168 ¿YZ STR LN 


¡ codigos de tectas de modo extendido con “shift” en orden 
y alfabetico 

0246 7EDC JAE tilde ERIGHT 

0248 DASCE77ZE ¿¡CDEF FAFER backslash ATN left-brace 
0240 7DDBEFAE ¡GHIA rigahtrbrace CIRCLE IN VALS 

0250 ARAEDDDE ¿KLMN SCREENS ATTR INVERSE OVER 

0254 DF7FESGDE ¿SOFQR QUT copyright ASN VERIFY 

0258 7CDS5SDDEÉ > ¿STUV bar MERGE riaht-sq FLASH 

0250 E6DITED? ¿¡HXYZ ACS INK left-sq EEEF 

gy codigos de teclas con “shift en orden numerica 

0260 00070604 30123 DELETE EDIT Caps-lock true-video 
0264 05080A0É 14367 invevideo left down up 


0268 090F 189 rieht eraphics 
s alfanumerico con tecla “shitt” 
0Z6A E22A AE STOF asterisk 


026€ 3FCDC8CE ¿CDEF query STEF qeda TO 
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0270 CESEACZD ¿GHTJ) THEN uparrow AT minus 
0274 2E3D2E2C ¿KLMN plis equals period comms 
0278 3E22073C ¿SO0FQR semicolon quote lea less 
0270 CI3ECUZF ¿STUV NOT aereater OR slash 

0280 C940CO3A ¿HXYZ not-equsl ponnd AND colon 
s modo extendido numeros con “shi+t” 

0284 DOCEASCA 30123 FORMAT DEF-FN FN LINE 
0288 D3N4D1D21  $4567 DOFEN-£ CLOSE-£ MOVE ERASE 


0280 A9CF $89 FOINT CAT 
; CONTINUA LA CODIFICACIÓN ... 
: explorar teclado » dejar el codigo de la tecla en DE 
028E 2E2F LD L,2F 
0290 11FFFF LD DE,)FFFF 
0293 0O1FEFE LD EC)+FEFE 
0296 ED78 IN A, (C) 
0298 2F CPL 
0299 Eb1F AND 1F 
029 280É JR Zy+14302AE 
02%D 67 LD Hs, A 
029E 7D 1.D A»L 
029F 14 INC D 
0240 C0 RET NZ 
0241 D608 SUE 08 
0243 CEIC SRL H 
02AS 30FA JR NC>-6302A1 
02A7 Us LD DsE 
0248 5F LD EsñA 
0249 20F4 JE NZ+,-123029F 
02AE 2D DEC L 
02AC CE00 RLE E 
JE Cs, "2630296 
L.D As+D 
INC ñ 
RET Z 
Cr 28 
RET Z 
CF 19 
RET Z 
LD As, E 
L.D EsD 
LD DIA 
DE CF 18 
02BE 09 RET 


¿ exploracion completa del teclado 
bit 5,C1Y+YFLAGS) ACTIVADO CUANDO SE ENCUENTRA UNA TECLA 


VALIDA 


. e 


026F KSCAN + 

02EF CDBE0Z CALL. 023É 

0207 C0 RET NZ 

0203 210050 LD HL, KSTATE 
0206 CEZE ELIT 7 y CHL.) 
0208 2007 JR NZ,+75302D1 
02CA 23 INC HL 

02C0E 33 DEC (HL) 
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020C 
020D 
02CF 
02D1 
02D2 
02053 
02D6 
02D8 
02DE 
02DC 
02DF 
020 
02ÉE2 
023 
026 
0257 
029 
02£ÉE 
02ED 
OREE 
02F0 
02F1 


02F2 


02F3 2 


02F4 
02F46 
02F7 
OZFA 
02FE 
02FC 
02FF 
0302 
0303 
0306 
0307 
0308 
030€ 
030F 


$ 

0310 
0311 
0313 
0314 
0313 
0316 
0319 
0314 
o31É 
0310 
031€ 
031F 
0321 
0322 


0324 


3603 
23 
3095 
77 

23 
FD4E07 
FDS601 


co3303 
El 
77 


320856 


FDCEOIJEE 


9 


23 
36053 
23 
30 
c0 
3A0ADC 
77 
23 
TE 
18£A 
42 
1600 
7E 
FE27 
D0 


HL. 
NZ,+2302D1 
(HL), EF 

A+ L 

HL, 5004 

L 
NZ+-1830206 
031€ 

NC 

HL ,KSTATE 
(HL) 
Z,+4630310 
DE, HL 

HL, 5004 

(HL 
Z,+39$0310 
7, (HL) 
NZ,+4302F1 
DE + HL 

7, (HL) 

Z 

EJA 

(HL, A 

HL. 

(HL, 05 

HL. 

A, (REFDEL.) 
(HL, A 

H. 

C, CIY+YMODE) 
D, (IY+YFLAGS) 
HL. 

0333 

H. 

(HL), A 
(LASTO,A 

5, (IY+YFLAGS) 


HL 
HL, 05 
HL 


NZ 

As CREFFER) 
CHI A 

HL. 

Ay, (HL 
2230308 
EsD 

D,00 

fr E 
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NC 
23 


0323 
0327 
0329 
037E 
0320 
032F 
0330 
0331 
0332 


y 

0333 
0334 
0336 
0338 
0339 
033C 
033É 
0340 


3 

0341 
0344 
03453 
0347 


034A 1 


0340 
034D 
034ÉE 


? 

034F 
0332 
0334 
0336 
0338 
035A 
035É 
033F 
0360 
0361 
0363 
; 

0364 
0366 


, 
0347 
0369 
034A 
036 
036 
0370 
0373 
0375 
0377 
0379 
037E 


04 


210502 


212902 
2540 
Z20F4 
CESA 
¿804 
FDOCESOSE 
c0 

04 


FA9DO3 
¿019 
215402 
CE68 
26803 
FE38 
3007 
D6ZoO 


18 
NZ,+330320 


HL,0205 
HL ,DE 
A, (HL) 


¿¡Leode 


A»E 
34 
C,+4730367 
c 

M, 034F 
Z,+350341 
4F 


HL,01E€ 

E 

Z,+35034A 
HL.,0205 ¿Lmode 
D,00 

HL. + DE 

As CHL2 


HL.,0229 ¿Emode 
0,É 

Zir1250344A 

3,D 

Z,+10$0364 

32, CIY+YFLGS2) 
N 

E 

NZ 


20 


30 

C 

[a 

M,039D 
NZ,+23530389 
HL,02:34 
SE 
ZAG O3IAA 
38 
NC)+730382 


20 


24 


¿¡Emode+rshift 


037D 04 INC ES 


037E C8 RET yA 

037F C608 ADD 08 

0381 C9 RET 

, 

0382 D636 SUE 36 

0384 04 INC E 

0385 C8 RET Z 

0384 Có6FE : ADD FE 

0388 C9 RET 

? 

0389 213002 LD HL), 0230 
0380 FE39 CF 39 

038E 28EA JE Z+-7030344A 
0390 FE30 CF 30 

0392 28E6 JR Z,-7430344A 
0394 E607 AND 07 

0396 C680 ADD 80 

0398 04 INC E 

0399 C8 RET Z 

0394 EEOF XOR 0F 

039C C9 RET 

,? 

039D 04 INC E 

039EÉ C8 RET Z 

039F CE68 ELIT Js E 

0341 213002 LD HL,+0230 
0344 2044 JR NZ+-923034A 
03A6 D610 SUE 10 

0348 FEZZ CF 22 

03AA 2806 JE Zy+6F03E2 
03AC FEZ20 CF 20 

03AE CO RET NZ 

03AF JESF LD As 3F 

0361 (9 RET 

, 

03EZ 3540 LD 4,40 

0364 9 RET 


¿ sonido Hi=Frecuencia DE=Duracion 
ONES CEEFERS 


03ES FS DI 

0366 7D LD ñAs+L 
03E7 CE3D SEL. L 

0369 CE3D SRL L 

OJÉE 2F CFL 

0BEC EG603 AND 03 

OGEE 4F LD Cs A 
O03EF 0600 LD E,00 
0301 DD21D103 LD 1X,03D1 
0305 DD09 ADD 1X+EC 
0307 3448350 LD As CEORDER> 
03CA ES38 AND 38 

0300 0F RECA 

03D 0F RECA 
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EEEF 


¿1923 
7E 

a 
Z203É 
23 


4E 


RECA 
OR 
NOF 
NOF 


EI 
RET 
comanda 
RST 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFES 
DEFE 
DEFE 


c 
NZ,-3303D6 
C,3F 

E 

NZ,03D6 

10 


4 A 
NZ,+9303F2 
ñAs,D 

E 
Z¿+9303F6 
AE 

C,L 

DE 

(TX) 


C,L 
C 
(TX) 


28 

+493c00pP3y 
+39 3 INT 
+192iístore 0 
+¿3isubibract 
+3ziliterel 
+236 

+108 

+1392 

+31 

+245 
+4imu1ltiply 
+1461 
+15fadd 
+56jfp exit 
HL.) MEMEOT 
fs CHL.) 

A 
NZ,+943046€ err 
HL. 

Cs, CHL.) 
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0410 23 INC HL. 


0411 44 LD Es CHL) 

0412 78 LD AE 

0413 17 RLA 

0414 9F SEC A 

0415 E9 CF c 

0416 2054 JR NZ,+845046C err 
0418 23 INC HL 

0419 EE CF (HL) 

041A 2050 JR NZ,+80046C err 
041C 78 LD AE 

041D Cé63C ADD 3C 

041F F22504 JE" F,0425 

0422 E26004 JF FO, 046C 
0423 06FA LD EJFA 

0427 04 INC E 

0428 D60DC SUE 0c 

042A 30FE JR NC,-550427 
042C C60C ADD 0c 

042E CS FUSH EC 

042F 216E04 LD HL,046Ejbeep constants 
0432 CD0634 CALL 3406 

0435 CDE433 CALL 3354 

0438 EF EST 28 

0439 04 DEFE +4ímu1tiply 
0434 38 DEFE +536$fp exit 
043E Fl FOR AF 

0430 86 ADD (HL) 

043D 77 1.D (HL),A 

043E EF RST 28 

043F CO DEFE +192istore 0 
0440 02 DEFE +2ídelete 
0441 31 DEFE +493Cc0py 
0442 38 DEFE +563fp exit 
0443 CD941E CALL 1E94 

0446 FEOE CF 0E 

0448 3022 JE NC++343046C 
0444 EF RST 28 

044E E0 DEFE +224$8et 0 
044C 04 DEFE +4$mu1tiply 
044D E0 DEFE +224380t 0 
044E 34 DEFE +3S2iliteral 
044F 80 DEFE —- +128 

0450 43 DEFE +67 

0451 53 DEFE +85 

0452 9F DEFE +159 

0453 80 DEFE +128 

0454 01 DEFE +1jexcha 
0453 03 DEFE +¿Siídivide 
0456 34 DEFE +52iliteral 
0457 35 DEFE +53 

0458 71 DEFE +113 

0459 03 DEFE +3 

0454 38 DEFE +54 
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045€ CD991É CALL. 
043E C5 FUSH 
043F CD991E CALL 
0462 El FOF 
0463 50 LD 
0464 59 LD 
04653 ZA LD 
0466 E3 OR 
0467 C8 RET 
0468 1E DEC 
0469 C3E503 JE 

, 

046€ CF KST 
046D DA DEFE: 
s tabla de frecuencias 
y entrada? 

044E 8902D01284 $; 
0473 8904976073 3C£ 
0478 8912D3171F $; 
047D 891E904102 ¿D£ 
0482 8924D053CA ¿E 
0487 892E9D36E1 ¿FE 
0480 8938FF493E ;3F£ 
0491 8943FF6A73 $; 
0496 B24FA4700354 $GÉ£ 
049 8930000000 ; 
0440 896914F624 ¡A£ 
04435 8976F11005 ¡E 

, 

0464 CDFEZ4 CALL 
044D 3AJESC LD 
0460 87 ADD 
0461 FASAILC JE 
0464 El FOF 
04535 DO RET 
04566 ES FUSH 
0467 CDF12E CALL 
D4EA 62 LD 
04EE 6 LD 
04EC 0D DEL 
0460 F8 RET 
DAEE 09 ADD 
D4EF CEFE SET 
0401 09 - RET 
0402 213F0S3 LD 
0405 ES FUSH 
0404 21801F LD 
0409 CEZF EIT 
D04CE 2803 JR 
040D 21980 LD 
04D0 08 EX 


DE 
EEEFER 


08 


+1i0jout of range 
DATUS ¿codificacion cmitida) 
para instruccion BEEF ¿5 bytes por 


24FE 


As) (FLAGS) 


A . 
M,1C84A 
HL 

NC 

HL 
2EFI1 

H ) D 
L,E 

[1 

M 
HL. + EC 
7, (HL. 


RUTINAS DE CASETE Load Save Verify Merge 
; CODIGO DE Save IX=Direccion DE=Cuenta de bytes 


HL.,033 
HL. 
HL,+1F8 
7yñA 


F 


0 


¿(test for bresk) 


¿hesder timira 


Z,+3304D0 header 


HL, 009 
AF) AF 


8 


283 


idata timina 


F3 DI 
3E02 LD A+ 02 
47 LD ESÁ 
10FE DJNZ -2304D8 
DIFE OUT (FE), A 
EEOF XOR 0F 
06A9 LD EsSA4 
2D DEC L 
20FS5 JR NZ,-11304D8 
05 DEC E 
25 DEC H 
F2D804 JE F,04D8 
062F LD Es,2F 
10FE D.JNZ -2+04EA 
DIFE OUT (FE>),A 
3£0D LD A,0D 
0637 LD E,37 
10FE DINZ -23049F2 
DIFE oQUT (FE),A 
010E3ÉE LD EC+3E0E 
08 EX AF,AF 
6F LD LA 
Cc30705 JF 0507 
7A LD As+D 
3 OR E 
280€ JR Z,+123050E 
2? DD4E0D0 LD Lo, (IX+0) 
7 LD AsH 
AD XOR L 
67 LD Hs A 
3E£01 LD A,01 
37 SCF 
cC32305 JE 035253 
MÍA LD LH 
18F4 JR -12305305 
79 LD A) T 
2 078 EIT 7 E 
10FE DJNZ 230514 
3004 JR NC++430510 
0642 LD E, AZ 
10FE DIJNZ “23051A 
DIFE OUT (FE),A 
DO3EÉ LD E, 3E 
20EÉF JE NZ+,-1750511 
os DEC E 
AF XOR ñ 
30 INC Á 
CR15 KL L 
021403 JE NZ,0514 
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2. 00 sue 


0537 
0358 
0539 
055A 
03 
0S5É 
0361 
0362 
0564 
05653 
0367 
0369 
036A 
056 
056€ 
0356F 
0571 
0574 
0576 


CDE7ZOS 
30FA 
211504 
10FE 


2E 


Operacion LOAD si 


INC 


LD 
FUSH 


052A 1ÉE DEC DE 

032 DDZ3 INC TX 

052D 0631 LD E, 31 

052F 3E7F LD A,7F ¿test for bresk 
0531 DEFE IN A) FE) 

0533 1F RRA 

0534 DO RET NC 

0533 ZA LD As,D 

03536 3C INC Á 

0537 C2FE04 JF NZ,04FE ¿test end 
0534 063€ LD E, 3ÉE 

0353C 10FE DINZ 230330 

053E C9 E RET 

; comprobacion de la tecla break 
0539 FS FUSH AF 

0540 34485C LD As (EORDCR) 
0543 E638 AND 38 

05435 0F RECA 

0346 0F RECÁA 

0547 0F RECA 

0548 D3FE o0uT (FEA 

054A 3E7F LD A) 7F 

054€ DEFE IN A), (FE) 

-054ÉE 1F RRA 

054F FE El 

0550 3802 JE C,+230554 

¡ Mensaje “break - CONT repeticiones” 
0352 CF RST 08 

0553 0C DEFE +12 

0554 Fi FOF AF 

0333 09 RET 


acarreo activado (NC=VERIFY> 
Cargar cabecera de la cinta si A=0 (N2=Datos> 
Ix=Direccion DE=Cuenta de bytes 

0536 1 


D 
AF, AF” ¿save parameters 
D 


As, 0E 
(FEA 
HL+,0353F ¿(test for bresk) 


NC)-63036É 
HL.,0415 
=230374 

HL. 


30 


0577 7C LD AsH 


0578 ES OR L 

0579 20F9 JE NZ 730574 
057EÉ CDE3OS CALL 053 

057E 30EÉ US NC+»-2153056E 
0580 0690 1.0 EJ9C 

0582 CDE3OS CAL.L 03EÉ3 

0585 30E4 JE NC+,-28056€ 
0587 3EC6 L.D A,Có 

0589 E8 CF E 

058A 30E0 JR NC) -325$056C 
058C 24 INC H 

058D 20F1 JR NZ,-15$0580 
058F 06C9 LO Es C9 

0591 CDE7ZO0OS CALL 05E7 

0594 3005 JE NC) -435$056E 
0596 78 LD AE 

0597 FED4 CF D4 

0599 30F4 JR NC», -125$058F 
059E CDE7Z0OS CALL 03E7 

059E DO RET NC 

059F 79 LD A,C 

0540 EEO03 XOR 03 

05A2 4F LD CA 

0543 2600 LD H,00 

05AS 060 LD E,E0 

05A7 181F JR +3150508 
0549 08 EX AF,AF serntry parameters 
05SñAA 2007 JR NZ +73 0553 
0SAC 300F JR NC>,+15505ED 
05AE DD7500 LD (IX+0)>,L 
0561 180F JE +1530502 
0563 (CE.1 KL. 2 

05635 AD XOR L 

0556 C0 RET NZ 

05E7 79 LD AC 

0568 1F RRA 

0569 4F LD C,A 

OSEA 13 INC DE 

056 1807 JE +75$03504 
05D DD7E00 LD Y) (TX +0) 
0500 AD XOR L 

051 C0 RET NZ 

05Cc2 DD2: INC TX 

0504 16 DEC DE 

0503 08 EX AF, AF 

0506 0662 LD EJ EZ 

0508 2E01 LD L.,01 

05CA CDEJOS CAL.L. 05SE3 

05C0D D0 RET NC 

05CEÉ 3ECE LD A,CE 

050 ES CP E 

05b1 20615 KL L 

05b3 060 LD E,E0 
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05D5 D2CA05 JE NC, OSCA 
03D8 7C LD A+H 

0509 AD XOR L 

035DA 67 LD Hs,A 

05DE 7A L.D As,D 

O5DC Fé0i OR 01 

032 C9 RET 

, 

05E3 CDE70S CALL 05SE7 

05SE6 DO RET NC 

0S5E7 3El6 LD As,1l6 

05E9 3D DEC Á 

OSEA 20FD JR NZ,-3303E9 
05SEC A7 AND A 

0SED 04 INC E 

0SEE C8 RET Z 

O0SEF 3E7F LD A,7F ¿test for bresk 
05Fi DEFE IN A, (FE) 
05F3 1F RRA 

05F4 DO RET NC 

05F3S A9 XOR Cc 

035F6 ES20 AND 20 

05F8 289F3 JR Z,-13305ED 
OSFA 79 LD AC 

05SFE 2F CPL 

05FC 4F LD CA 

05SFD E607 AND 07 

0SFF F408 OR 08 

0601 D3FE OUT (FEA 
0603 37 SCF 

0604 C9 RET 

¿ Construccion del registra de cabecera del fichera 
0605 Fi FOF AF 

0606 347430 LD A, (TADDR) 
0609 D6E0 SUE E0 

060€ 32743C LD (TADDR) ¿A 
060E CD8cC1C CALL 1C8C 

0611 CD3023 CALL 2530 

0614 2830 JE Z¿+6030632 
0616 011100 LD EC,0011 
0619 347435 LD As, CTÁDDR) 
0610 A7 AND Á E 
061D 2802 JR Zy+230621 
063F 0EZ22 LD 0,22 

0621 F7 RST 30jmake space 
0622 DS, FUSH DE 

0623 DDE1 FOF IX 

06235 060 LD E,0E 

0627 3EZ0 LD 4,20 

0629 12 LD (MEJIA 
0624 13 INC DE 

062% 10FC DJNZ -430629 
062D DD3601FF LD (1X+1),FF 


y extraer un elemento de la pila de la calculadora 
32 | 


0631 CDF12E 
05634 21F4FF 
0637 0E 
0638 09 
0639 03 
063A 300F 
0630 34745€ 
0643F A7 
0640 2002 

; nombre de 
06442 CF 
0643 0E 
0644 78 
06435 El 
06446 2804 
0648 010400 
064E DDES 
064D El 
064E 23 
064F EE 
06350 EDE'O 
0632 DF 
0653 FEE4 
0655 2049 
0657 3A745C 
DOSA FE03 
0650 CABÁ1C 
06S5SF E7 
0660 CNEZ28 
0663 CEF9 
0663 300E 
0667 210000 
D066A 3A743C 
066D 3D 
046E 2813 


s Variable no encontrada variable not found) 


0670 CF 
0671 01 
0672 C28A1C 
0675 CD3025 
0678 2818 
067A 23 
067 7E 
0670 DD770E 
067F 23 
0680 7E 
0681 DD770C 
0684 23 
0685 DD710E 
0688 3E01 
068A CE71 
0680 2801 
068E 30 
068F DD7700 


CALL 2EF1 

LD HL,FFF6 

DEC EC 

ADD HL,+EC 

INC EC 

JR NC++155064E 

LD A+ (TADDR> 

AND Á 

JR NZ,+230644 
fichero incorrecto ¿invalid file 

RST 08 

DEFE: +14 

LD AE 

OR c 

JR Z,+1050632 

LD EC+,000A 

FUSH IX 

FOF AL 

INC HL 

EX DE), HL 

LDIR 

EST 18 

CF E4 

JR NZ,+733064N0 

LD A, (TADDR> 

CF 03 

JE Z+1C8A 

RST 20 

CALL 28E2 

SET 7 

JR NC++1150672 

LD HL,0000 

LD A), (TADDR) 

DEC A 

JR Z++2150685 

EST 089 

DEFE +1 

JE NZ,1C8A 

CALL 2530 

JR Z,+2430692 

INC HL 

LD As (HL) 

LD (1X+11),4A 

INC HL 

LD A), CHILL.) 

1.D (1X+123,4 

INC HL. 

¡1 p) (1X+149),C 

LD A,01 

EXIT 6,€ 

JR Z,+13068F 

INC ñ 

LD (IX+0),A 
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name) 


0692 EE EX - DE, HL. 


0693 E7 RST 20 

0694 FEZ29 CF 29 

0696 20DA JR NZ,-3830672 
06498 E7 RST 20 

0699 CDEE1E CALL 16EE 

069C EE EX DE, HL 

069D C3IGSA0D7 JE 075A 

$ 

D6A0 FEAA CP AÁ 

06A2 201F JR NZ,+31306C3 
06454 347430 L.D A, (TADDR> 
06A7 FE03 CF 03 

06A9 CABA1LC JE Z,1C08A 

D6AC E7 RST 20 

06AD CDEE1E CALL 1EEE 

0660 DD360E00 LD (1X+11),003lenath of 
0664 DD360C1E: LD (1IX+12),1E5$SCREENS$ 
0668 210040 LD HL,4000;display file 
06EE DD730D LD (TX+13),L 
06EE DD740E LD (1X+14),H 
06C1 184D JR +7750710 

? 

0603 FEAF CF AF 

0605 204F JR NZ,+7930716 
0607 3A743C LD A», CTADDR) 
06CA FE0O3 CF 03 

06CC CABA1C JF Z,1C8A 

06CF E7 RST 20 

04D0 CD4820 CALL 2048 

06D3 200€ JR NZ,+12506ÉE1 ' 
06D3S 3A743C LD A, CTÁDDR) 
06D8 A7 AND Á 

06D9 CABALC JE Z,1C8A 

06DC CDE61C CALL 1CE6 

06DF 180F JR +15306F0 
06E1 CD821C CALL 1082 

0664 DF RST 18 

D6ÉS FEZ2C CF 2. 

06E7 280€ JR Z++12306F3 
06E9 34743C LD A, (TADDR) 
D6EC A7 AND Á 

D6ÉED CABA1LC JP 2+108A 

06F0 CDE61C CALL 1CE6 

06F3 1804 JR +4306F9 
D6F3 EZ EST 20 

064F6 CD8B21C CALL 1082 

06F9 CDEE1E CALL 1EEE 

D6FC CD9PI1EÉ CALL 199 

DEFF DD710E L.D (1xX+11)3, 
0702 DD700C LD (1X+12),E 
07035 CD991É CALL. 1299 

0708 DD710D LD (TIX+13),0 
070E DR700É LD (1IX+14,ÉE 
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070€ 40 LD H,E 


070F 649 L.D LC 

0710 DD340003 LO (1X+0),03 
0714 1844 JR +68507534 
0716 FECÁ CF CA 

0718 2809 JR Z+930723 
071A CDEE1E CALL 1EEÉ 

071D DD340E80 LO (1X+14),80 
0721 1817 JR +235073A 
0723 3A743C LD fi) (TADDR) 
0726 A7 AND A 

0727 C28BA1C JE NZ,1C8A 
072A E7 RKST 20 

072 CD8zZiC CALL 1082 

072E CDEE1E CALL 1EEE 

0731 CD991É CALL 1E99 

0734 DD710D LD (TX+13),C 
0737 DD700E LD (1X+14),E 
0734 DD360000 LD (1X+0),00 
073E 2A595C LD HL, CELINE > 
0741 EDISES3ISC LD DE, (FROG) 
0743 37 scF 

0746 EDSZ SEC HL, DE 

0748 DD7S50ÉE LD (IX+11)>,L 
074E DD740C LD (1X+12),H 
074E 2A4ES35C LD HL), (VARS) 
0751 EDSZ SEC HL ,DE : 
0733 DD730F LD (TIX+15),L 
0736 DD7410 LD (1X+16),H 
0759 ER EX DE), HL 

07354 3474350 LD A), (TADDR) 
073D A7 AND Á 

075€ CA7009 JE Z ¿SAVE 

0761 ES FUSH HLiadár for losdina 
0762 011100 LD EC+0011 
0765 DD09 ADD TIX,EC 

0767 DDES FUSH IX 

0749 111100 LD DE,0011 
0761 AF XOR Á 

076D 37 SsCF 

076É CDI603 CALL 0356;10ad 
0771 DDE1 FOF IX 

0773 30F2 JE NC),-1430767 
077% 3EFE LD A+FEj¿screern output 
0777 CNO116 CALL SELDEV 

0774 FD363203 LD CIY+YSCROTI),03 
077€ 0E80 LD (+80 

s tipo de fichero O=prog 1l=datostí> 2=datos$(2 3=codiga 
0780 DD7E00 LD A) CIX+0) 
0783 DDEEEF CF (1X-17) 
0784 2002 JE NZ,+230784N 
0788 0EFó LD C+Fó 

0784 FE04 CF 04 

078C 30D9 JR NCs+-3930767 
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078ÉE 
0791 
0792 
07953 
0796 
0798 
0799 
0790 
079D 
079F 
0740 
07A1 
07A3 
07A4 
07AS 
07ñA6 
07A7 
0748 
07A9 


DZAA 2 


D7AC 
07 AD 
07AE 
07E0 
0752 
0754 
0756 
07E7 
0758 
07EE 
07ED 
07EF 
0702 
0703 
0706 
0708 
07CE 
07ccC 
070F 
07D2 
07D5 


110009 
O3 
CDOÁ0C 
c1 


CE79 


CAE608 
ES 

DDSEFA 
DDS4FE 
DDSE0E 
DD3G60C 


¿ comprobar 


07D8 
07D9 
07DÁ 


7E 
ES 
280D 


y error si 
j a menos que se trate de un segmento de codigo 


07DC 
07DEÉ 
07E0 
0752 
07ES 
07E7 
079 


EDSZ 
3826 
2807 
DD7E00 
FE03 
201D 
Ed 


longitud (si 


JR 


SEC 
JE 
JR 
LD 
cF 
JR 
FOF 


DE,09C0ídescr table 
EC : 

0C0A display strinal(A) 
ÉC 


HL,FFFOs -16 

HL. , DE 

¿DA 

A, (HL) 

A ¿test FF 
NZ,+3307A6 

A),CE 

E 

C,A 

DE 

A, (DE > 
CHL)icompare mames 
HL 

NZ,+1507AD 

c 

i0foutput soctual mame 
-10307A6 

7yL 

NZ,-7730767 

A,CTR 

10 

HL 

A), (TIX+0) 

03 

Zy+12307CE if CODE 
A, TADDR) 


E, (1IX+11) 

D, (IX+12) 

se ha especificado) 
AsH 

L 

Zy3+13$07E9 


la longitud deseadatlongitud actual 


HL. , DE 
C,+3850806 
Z++7307E9 

A, (TX+0) 

03 
NZ,+2950806 
HL 
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07EA 7C LD 
07ER ES OR 
07EC 2006 JR 
07EE DDSEOD LD 
07Fi DDSG60É LD 
07F4 ES FUSH 
07F3 DDE1Í FOF 
07F7 347430 LD 
07FA FE0OZ2 CF 
07FC 37 scF 
07FD 2001 JK 
07FF A7 AND 
0800 JEFF LD 
0802 CD3603 CALL 
0805 D8 RET 
y error al cargar de=de 
0806 CF RST 
0807 14 DEFE 
, 

0808 DDSE0E LD 
080€ DDS60€ LD 
080E ES FUSH 
080F 7€ LD 
0810 ES OR 
811 2006 JR 
0813 13 INC 
0814 13 INC 
0815 13 INC 
0816 EE EX 
0817 180€ JR 
0819 DDéEFA LD 
081C DDéG6FE LD 
081F EE EX 
0820 37 scF 
0821 EDSZ2 SEC 
0823 3809 JR 
0823 110500 LD 
0828 19 ADD 
0829 44 LD ' 
082A 4D LD 
082E CDOSiF CALL 
082E El FOF 
082F DD7E00 LD 
0832 A7 AND 
833 283É JE 
08335 7€ LD 
0836 ES OR 
0837 2813 JK 
0839 2E DEC 
083A 46 LD 
083E 2E DEC 
083C 4E LD 
0683D 2E DEC 
083E 03 INC 


AsH 

L. 
NZs++6307F4 
Ls C1X+13) 
Hs (1X+14) 
Hi. 


IXieddr for losdina 
«fs CTADDRO 


02 


NZ),+130800 
A 

A+) FFidete 
035356;l03d 
COOK 

cinta 

08 

+26 


E, (1X+11) 
D, (1X+12) 
HL 

A, H 

L 
NZ,+650819 


A), (1X+0) 

Á 
Z,+62,0873 
A, H 

L 
Z,+193084C 
HL. 

E, (HL) 

HL 

2, CHL.) 

HL. 

EC 
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0393F 
0840 
0841 
0845 
0848 
0840 
084F 
0930 
0853 
0836 
0837 
0858 
0859 
0854 
0835D 
085€ 
0861 
0862 
0863 
0844 
0865 
0846 
0867 
0868 
0869 
0864 
086€ 
086D 
086ÉE 
0870 


> 

0873 
0874 
0877 
0878 
087€ 
087F 
0882 
0883 
0886 
0887 
0888 
0889 
0880 
0890 
0891 
0894 
0897 
0898 
089: 
089E 
089F 
08A1 
0843 


03 

03 
DOZ25SF3C 
CDE819 
DDZASF3C 
245930 
2E 
DD4E.0E 
DD4600 


C3 


c30208 


EE 
2A5S9350 
ZE 


DD223F5C 


Cy 
CoOS316 
DDZASF SC 


7 
E6C0 
2004 
DD6E 0D 


EC 

EC 

(XFTR) ¿HL 
19E8 

HL.s CXF TR 
HL, CELINE) 
HL. 

Cs C1IX+11) 
E), (1X+12) 
EC 


A CTD 
AF 


A, FF 
0802 


DE, HL 

HL, CELINE > 
HL. 
(XFTR) , HL. 
C), (1X+11) 
Ey (1X+12) 
EC 


HL.) CXFTR) 
HL 

Cy, (1X+15) 
E, C1X+16) 
HL, EC 
(VARS 3 , HL. 
Hs (1TX+14) 
As, H 

0 
NZ,+10308AD 
Lo (1X+13) 
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224230 


FD3604A00 


3EFF 
C30208 


DD4E.0E 
DD460C 


3EFF 
cD0208 
El 
EDSES3SC 


(NENFFC) y, HL 
CTIY+YNSFFC)900 


DE 
LX 


A, FF 
0802 


QC) (TX+11) 
Ey CIX+12) 
EC 


DE, HL. 


DE, (FROG) 
As (HL) 
co 


NZ,+25508F0 


A, (DE) 


HL 


-20$08D7 
092 
-30508D2 
As, (HL) 
CA 

80 

Z. 

HL. 

HL.» (VARS) 
As CHL.) 
80 


2 +37 30923 
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2239F3SC 
EE 
coE819 
CDE819 
EE 
2A5F5C 
08 
08 
DS 
CDE819 
2235F3C 


2A5339C0 


2E 


CoOS31ó 


2 23 


1803 


5 COS9ió 


CALL. 


Z++850909 
EC 


DE, HL 


DE 


NZ,+63091E 


NC+-930912 


-3230901 
A, FF 

DE 

DE, HL 

A 


0920 
-605308F0 


NZ,+163093E 
AF, AF 
(XFTR) , HL. 
DE, HL 
1968 

19E£8 

DE), HL 

HL.) (XF TR) 
AF) AF 

AF, AF 

DE 

1958 
(XFTR) >, HL 
HL.) (FROG) 
HL., (SF) 
EC 

AF)AF 
Cr+730955 
HL. 

106553 

Hi. 
+3310958 
16395 


40 


0958 
0939 
095% 
093 
0295F 
0963 
0964 
0965 
0966 
0968 
0969 
096A 
0965 
096É 
096F 


y Comando save 


0970 
0970 
0971 
0973 
0976 
0977 
D97A 
097D 
0981 
0984 
0986 
0989 
098A 
098D 
098F 
0991 
0992 
0994 
0997 
099A 
099C 
099E 


, 

09A1 
09A2 
09%é 
DORA 
09AE 
0962 
0956 
09EA 
09EEÉ 
09C1 
0902 
0906 
09cCA 
091C 
0900 


EDI3SISC 
EDISESFSC 
[07] 


9 


SAVE 
ES 
3EFD 
¡A 


CcDD415 


DOSE0E 
DDSG60C 
3EFF 
DDE1 
(30204 


80 
33746172 
74207461 
706352020 
7468636E 
20707263 
73732061 
679206 
637 9AE 
0D 
30726F67 
72616D3A 
ADOD 
4E736D62 
635722061 


. 
+ 


FUSH 
CALL 
FOF 
RET 


FUSH 
LD 
CALL 
XOR 


HL. 

EC 

DE 

(FROG) ¿DE 
DE, (XETR) 
EC 

DE 

DE, HL 


Hi. 
EC 
DE 
1988 
DE 


HL. 

A+ FDiscreen output 
SELDEV 

As'start tape” 
DE,09A1 

OCA 

5, (IY+YTUFLG) 
INKEYfwait for key 
TX 

DE,00113hesder lenath 
Aitape header 
04C2isave 

TX 

Es323+50 interrupts 
¿í=wsait 1 secorid 
-35$0991 

E, (IX+11) 

D, (TX+12) 
A+,FFitape data 

TX 

04C023save 


+128 
“Start tape, * 


“then press a? 


try key. *i+bit 7 


CR 
*Frogrami? 30 


+324+128,CR 
*Number array” $1 
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09D4 72726179 


09D8 34 DEFE ¡dd 
09D92 A0DOD DEFE +32+128,C0kR 
09DE 434686172 DEFE Character ar? 32 
DO9DF 616374635 
09E3 72206172 
09E7 726179 DEFE: ragi? 
O9EE ADO0D DEFE +32+128),C0kR 
09ED 42797463 DEFE “Eytesi” 13 
09F1 7334 
09F3 A0 DEFE +32+128 
¡ sacar (A) por la corriente que se este utilizando 
: PRINT: 
09F4 CDOS0E CALL 0603 
09F7 FEZÓ CF 20 
09F9 D2Z2DIDA JE NC, DADO 
0O9FC FEDS CF 04 
09FE 3849 JE Cs++10530469 
DA00 FE1IS CF i8 
DA0Z 3065 JE NC+,+101$0469 
0404 210E0A LD HI.+0A0ÉE 
DA07 SF LD EJÁ 
0408 1400 LD D,00 
DADA 19 ADD HL, DE 
DA0E SE LD Es CHL) 
DA0C 19 ADD HL ,DE 
DAOD ES FUSH HL 
DADE C3030E JE D0E03 
DATA 


Consultar la tabla en busca de los caracteres de 
¿ control 06-17 

0411 4E571029 

04135 543339237 

0419 504FSFS5E 

DA1D SDSCIESA 

0A21 5433 

¡ 08 cursor ¡izquierda 


2. q ee 


DA23 0 INC c 

0424 3E22 LD A+22 

0AZ26 E? cr c 

0427 2011 JR NZ),+17 30434 
0429 FDCE'014É EIT 1, (IY+YFLAGS) 
DA2D 2009 JR NZ,+930A38 
DA2F 04 INC : 

0430 0E02 L.D 2,02 

0432 3£18 LD A,189 

0434 E8 CF E 

0433 2003 JR Zy+3DA3A 
0A37 03 DEC E: 

0A38 0E21 LD C,21 

043A C3D90D JE CURSOR 

¡3 09 cursor derecha 

0A3D 349150 L.D 4) CFFLAG) 
0A%0 FS FUSAH AF 
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0441 FD363701 LD (IY+YFFLAG),01 


0445 3E20 LD A,20 

0447 CD6SDE CALL. 05665 

044A Fi FOF AF 

044E 329135C LD (FELACI,A 
DAME C9 RET 

3 0D retorno de carro (ENTER? 

044F FDCE01i4ÉE EXIT 1) (IY+YFLACGS) 
0AS3 CZCDOEÉE JE NZ>,LFRINT 
0A3S6 0EZ21 LD C,21 

0438 CDS50C CALL 0035 

DASE 05 DEC E 

DAS. C3D90D JE CURSOR 

y Dó print coma 

045F CDO3O0É CALL 0E03 

06462 79 LD AC 

0463 3D DEC A 

0464 3D DEC A 

04635 E6S10 AND 10 

0467 185A JR +90504C3 

$ DAJO0E/OC/DESO0F 

0469 3E3F LD A, 3F 

0DAGE 186€ JE +108;0AD9 

, , 

0A6D 118704 LD DE,0497 
0470 3Z20F3€ LD (SCO0F),A 
0A73 180€ JR +1130480 

3 16/17 AT/TAE 

0473 116D04A LD DE,046D 
0478 1803 JR +304A7D 

y 10/11/12/13/149/15 siguiente “print” en 0A8? 
DA7ZA 118704 LD DE,0A87 
DA7D 320E35C LD (TUDATA),A 
0A80 2A5135C LD HL, (CURCHL. 3 
0483 73 LD (HL>,E 

0484 23 INC HL 

0485 72 LD (HL),D 

0A86 C9 RET 

g reinicializar la direccion del “driver” de salida 
0487 11F409 LD DE), FRINT 
DABA CD800A CALL 0DA80 

0A8D 2A0E35C LD HL.) (TUDATA) 
0DA90 37 LD D,A 

0491 7D LD As+L 

0492 FEl6 cr 16 

0494 DAL122 JE C+2211 

DA97 2029 JR NZ),+41304C2 
0499 44 LD EsH 

DAA 4A LD C,D 

0A9E 3E1F LD A,1F 

DA9D 91 SUE C 

DAYE 380€ JE C,+1230AAC 
0AA0 CS02 ADD 02 

DAAZ 4F LO C,46 
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04643 FDCE014EÉ EXIT 1, (IY+YFLAGS) 
DAAZ ¿016 JE NZ¿+223D0AEF 
DAA9 3E16 LD Asló6 

DAAE 90 SUE z 

0AAC DASFIE JE CC, 1E9F 

DAAF 30 INC Á 

0ñE0 47 LD EJÁ 

DAE1 04 INC E 

DAEZ FDCE0246 ETT 0, a 
DAEÉ C2550C JE NZ,0C53 

0062 FDEE3IL Cr (IY+YDFSZ) 
DAEC DAB60C JE Cy, 0086 

DAEF C3DP0D SE CURSOR 

, 

0ACZ 76 1.0 fis H 

0AC3 CDO3OÉE CALL 0603 

0ACó 81 ADD | 

DAC7 3D DEC Á 

0AC8 E61F AND 1F 

DACA C8 RET Z. 

DACE 57 1D D,A 

DACC FDCE0ICó SET 0, CIY+YFLAGS) 
DADO 3E20 L.D As,20 

0AD2 CD3E0C CALL 0C3E 

04DS 15 DEC D 

04D6 20F8 JR NZ,-850AD0 
04AD8 C9 RET 

z imprimir caracter normal 

0AD9 CD240E CALL 0E24 

DADC FDCE:014E EIT 1, (IY+YFLAGS) 
DAEOD 2014 JR NZ,+26304AFC 
DAE2 FDCE0246 EIT 0, (IY+YTVUFLG) 
DAES 2008 JR NZ,+8304AF0 
DAE8 ED438850 LD (SFOSN)¿EC 
DAEC 228430 LD (DF CC) , HL 
DAEF C9 RET 

, 

DAFO ED438ASC LD (SFOSNL),EC 
0AF4 ED43823C LD (ECHOE ),EC 
DAFS 22863 LD (DFCCL) , HL 
DAFE [9 RET 

, 

DAFC FD71453 LD (IY+YFFOSN)),C 
DAFF 22803 LD (PROC), HL 
0602 C9 RET 


el 


e 4. . 0. 


0603 
0E:07 
0609 
00D 


obtener posicion actual 


bit 1 de (IY+YFLAGS) esta activado cuando: se utiliza la 


impresora 
bit 0 de (IY+YTUFLG) se activa cuando se 
inferior de la pantalla 


1, (IY+YFLAGCS) 


FDCE014EÉE 
2014 
ED4E885C 
248430 


EIT 
JR 
LD 
UD 


NZ, 
EC, 
HL. 


+2050€1D 
(SFOSN) 


, (DFCC) 


44 


imprime en 


la parte 


0510 
0614 
0615 
0619 
061C 


? 
0E10 
0620 
DE23 
; 


0624 


0E26 : 


05628 
DEZA 
D0E2€ 
0620 
0630 
0E33 
DES 
0638 
0E3E 
0E3E 


0640. 


0641 
0543 
0644 
0646 
05:47 
0E49 
0E4A 
084€ 
04D 
0E:4ÉE 
DE:4F 
0ES1 


) 

0ES2 
0654 
DES 
0€58 
0659 
DESD 
ESF 
0562 


, 

05665 
0E6é6 
DESA 
DEE 
DESE 
0E70 
0E72 
0E74 
0E76 


FDCE0DZ46 
C8 
ED4E3A3C 
2A863T 
09 


FD4E43 
248030 
09 


FE8Ó 


CE18 


ED4E7ES5C 
180€ 
cpio0c 
C3030E 


os 
ED4E3635€ 
EE 
213E3C 
CE86 
FEZ0 
2002 
CEC6 
2600 


0, CIVY+YTUFLG) 
Z 

EC», CSFOSNL ) 
HL.) (DFCCL.> 


Cs CIY+4YFFOSN) 
HL.) CFROC) 


80 
C,+61305665 
$0 

NC) +38 0832 
Es A 

0638 

0603 

DE?) MEMEOT 
+7130E67F 
HL.) MEMEOT 
VDESE 

E 


NZ+,-550E4C 


AS 
NC++9F0E5F 
15 

EC 

EC), (UDG) 
+1150E6A 
0C10 

0603 


EC 
EC) CCHARS >) 


NZ)+230E76 
0, (HL) 
H,00 
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4F 
FDCE:014E 
2806 

DS 
CDCDOE 


FDCE:014E 
2803 


FDCE30CE 


LA 

HL. y HL. 

HL, HL 

HL, HL. 

HL) EC 

EC 

DE, HL. 

AC 

Á 

Ar2l 
NZ+14505693 

E 

CA 

1, CIY+YELAGS) 
Z+630E93 

DE 

LFRINT 

DE. 

AC 

C 
DE 


Z+,0055j3check socroll 


DE 


As (FFLAG) 
EsJFF 


C,+1308A4 


1, (IY+YFLAGS) 
Z ¿+55 0556 
1, (IY+YFLCS2) 


DE, HL 
AF, AF 
A» (DE) 
E 
(HL) 

Cc 

(DEJ),A 
AF,AF 
C++19;0ED3 
D 

HL 

ñ 
NZs+-14:058ÉE7 
DE, HL. 
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DECÓ 23 DEC 
DEC7 FDCE014E EIT 
0ECE CCDE'0E: CALL 
DECE El FOF 
DECF Ci FOF 
0ED0 0D DEC 
06D1 23 INC 
0EDZ2 C9 RET 
y 

0Eb3 08 EX 
0E6D4 3E20 LD 
0E5Dó6 83 ADD 
0ED7 SE LD 
0Eb8 08 EX 
06D9 18E6 JE 

s actualizar atributa de 
0EDE 7C LD 
D0EDC 0F EKRCAÁ 
0EDD 0F RECA 
DEDE 0F ERCA 
DEDF ES03 AND 
DEE FóSs8 OR 
DEES 67 LD 
DEE4 EDSEBFSC LO 
06E8 7E LD 
DEES ñÁE XOR 
DEEA AZ AND 
DEEE AE XOR 
DEEC FDCES776 ETIT 
DEFO 28089 JR 
DEFZ2 E6T7 AND 
DEFA CES7 EIT 
DEFE 2002 JE 
0E6F8 EE38 XOR 
DEFA FDCES766 EIT 
DEFE 2808 JR 
0000 ESF8 AND 
0Cc02 CE6F EIT 
0C04 2002 JR 
0006 EE07 XOR 
0Cc08 77 LD 
0009 C9 RET 
¿ presentar (DE>=cadena 
0COA ES PUSH 
0CO0E 2600 LD 
0cC0D E3 EX 
0C0E 1804 JR 
oci0 1195300 LD 
0c13 FS FUSH 
0014 CD410€ CALL 
0Ci17 3809 JR 
0019 3E20 LD 
0C1E FDCE0146 EIT 
90C1F CC3E0C CALL 


H 

1, (TY+YFLAGS) 
Z,0ÉEDÉE 

HL 

EC 

C 

HL 


AF, AF 
As+20 

E 

ESA 
AF,AF 
-26306C1 
pantalla 
AsH 


03 

33 

HA 

DEs+ CATTRT) 
As CHL.) 

E 

D 

E 

6) (IY+YFFLAG>) 
Z,+BF0ÉEFA 
7 

2) A 
NZ,+250EFA 
38 

4, (IY+YEFLAG) 
7,+830C08 
F8 

SA 
NZ,+25$0C08 
07 

(HLI,A 


indexada por (A) 
HL 


00641 
C,+930C022 
A,20 

0, CIY+YFLAGS)> 
Z+0C3E 
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0022 14 LD 
0023 E67F AND 
0025 CDSE0C CALL 
0028 1A LD 
0029 13 INC 
0CZ2A 87 ADD 
002E 30F3 JR 
0CZD Di FOF 
0CZE FE48 CcF 
0Cc30 2803 JR 
0032 FE8S2 cr 
0034 D8 RET 
0035 7Á LD 
0034 FE0O3 CcF 
0C38 D8 RET 
0039 3E20 LD 
0C3E D3 FUSH 
0C3C D9 EXX 
0C3D D7 RST 
0CIE D9 EXX 
0C3F D1 FOF 
0040 (9 RET 
, 

0041 FS FUSH 
0C0AR EE EX 
0043 3 INC 
0044 CE7ZE BIT 
0046 23 INC 
0047 28FE JR 
0049 3D DEC 
0044 20F8 JR 
0C4C EE EX 
004D Fi FOF 
0C4E FEZ20 cF 
0Cc30 D8 RET 
0c5i 14A LD 
0052 D44l SUE 
0054 C9 RET 
¿ subrutina de scroll 
0055 FDCE014E EIT 
00359 C0 RET 
OCSA 11D90D LD 
0C5D DS FUSH 
0C5SE 78 LD 
0CS$F FDCE0246 ETT 
0063 C2020D JE 
0066 FDEE31 cF 
0069 381E JR 
0C4E C0 RET 
0C6C FDCE0266 EXIT 
0070 2816 JR 
0072 FDSEZ2D LD 
0075 10D DEC 
0076 285A JR 


A+ (DE) 

7E 

0C3E 

A, (DE) 

DE 

Á z 
NC,-1150C22 
DE 

48 
Zi+330C035 


7, (HL) 

FIL 
Z,-35$0C044 
A 
NZ,-830C44 
DE), HL 

AF 

20 

c 

A, (DE) 
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1, (IY+YFLAGS) 
NZjfexit if printer 
DE, CURSOR 

DE 

A,E 

0, (IY+YTUFLG) 
NZ,0D02 
(1IY+YDFSZ) 
C,+2730C86 

NZ 

4, (IY+YTUFLG) 
Z¿+2230C088 

E), CIY+YEREG) 

E 
Zy3+905300D2 
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0078 
DEZA 
0C7D 
0c8i 
0085 


y error 


0036 
0087 


, 

0088 
0C8E 
00C8D 
0C8F 
0090 
0093 
0096 
0097 
OCA 
0C9ÉE 
0C9D 
0CA0 
0CAl 
0CA4 
0CA7 
0CAE 
DCAE 
0CE0 
0CEZ 
0CE3 
0CE6 
0CE7 
0CE9 
0CEE 
0DCED 
0CEF 
0cci 
0CC3 
0cco 
0Cc7 
OCCA 
0CCE 
0CCE 
0CCF 
0CD2 
0CD5 
0cb8 
0CD9 
OCDE 
0CDC 
0CDF 
OCE0D 
0CE1 
0CEZ2 
0CE3 


3E00 
CD0114 
ED7E3FSC 
FDCE02A6 
C9 


CF 
04 


FDO33u2 


328030 
243 FC 
ES 
349130 
FS 
3EFD 
CDO0116 
AF 
11F80€ 
CDOA0C 
FDCEOZEE 
21363 


CEDE 


“out af 


RET 
ecreen” 
RST 
DEFE: 


A,003lower sereen 
SELDEV 

SF, (LISTSF) 

94, (IY+YTUFLG) 


(fuera de pantalla) 
08 
+4 


(IY+YSCRCT) 
NZ),+69300DZ 

A+18 

E 

(SEOROTIS)A 

HL) CATTRTI 

HL. 

Ar CFFLAG) 

AF 

A+FD;lower screen 
SELDEV 

A 

DEs,0CFS8jscroll msq 
0C0A 

Ss CLIY+YTUFLOG) 
HL,)FLAGS 

3) CHILL.) 

39 CH) 


INKEY$wsit for key 


¿0ícheck keg code 
Zy+6930D00 

E2 

Z,+6530D00 

20 

6É 

Z,+35950D00 


(FFLAGI),)A 

HL. 
CATTRT),HL 
DDFE 

¿) CIY+YDFSZ) 
E 
C,21 
EC 
0E9E 
A,H 


03 
49 


0CES Fé6S8 OR 38 


0CE7 67 LD H,A 

0CE8 11E0S5A LD DE, SAE0 
OCEE 14A L.D A, (DE) 
0OCEC 4EÉ LD C, (HL) 
0CED 0420 LD Es,20 

OCEF EE EX DE , HL 
0CF0 12 LD (DE>),A 
0CFi 71 LD CHILI 
0CFZ 13 INC DE 

0C0F3 23 INC HL. 

0CF4 10FA DINZ 63 08F0 
0CFé6 C1 FOF EC 

0CF7 C9 RET 

¡ DATOS (el bit ? del ultimo byte esta activado) 
0cCF8 80 DEFE +128 

0CF9 7363726F DEFE 'seroll?” 


0CFD 6C46CEF 
¡ Break - CONT repeticiones 


0000 CF EST 08 
0D01i 0C DEFE +12 
, 
0D02 FE02 CF 0% 
0004 3880 JR C,-1285$0086 
0D06 FD8631 ADD (IY+YDFSZ) 
0D09 D619 SUE 19 
0D0E DO RET NC 
0D0C ED44 NE.G 
0DOE CS5 FUSH EC 
0DO0F 47 LD ESA 
0010 2A8F3C LD HL.) CÁTTRT) 
0013 ES FUSH HL. 
0014 24913 LD HL.) (FELAG) 
0017 ES FUSH HL. 
0018 CD4D0D CALL 0D4D 
0D1E 78 LD AE 
0D1C FS FUSH AF 
0D1D 216E5C LD HL, DFSZ 
0020 46 LD Es, (HL) 
00zi 78 LD AE 
0022 3C INC Á 
0023 77 LD CHL)s) A 
0024 21893 LD HL, 35089 
- 0027 EE CP (HL) 
0D28 3803 JR C,+35$0D2D 
0D2A 34 INC (HL) 
0D2E 0618 L.D E,18 
0D2D CDO00É CALL 0E00 
0D30 Fi FOFP AF 
0D31 3D DEC Á 
0032 20E8 JR NZ,-24$0D1C 
0D34 El FOF HL. 
00335 FD7337 LD (IY+YFFLAG),L 
0038 El FOF HL. 
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0039 228F3C LD CATTRT> , HL 
0030 ED4E885C LD EC), (SFOSN) 
0040 FDCE0286 RES 0, (IY+YTUFLG) ¿screen 
0044 CDD90D CALL CURSOR 

0047 FDCE0O2C6. SET 0, (IY+YTVUFLC)3kegybosrd 
0D4E Ci FOF EC 

0D4C C9 RET 

y reinicializar atributos temporales 
0D4D AF XOR Á 

0D4E 2A8D3C LD HL.) CÁTTRE> 
0051 FDCE0246 EIT 0, CIY+YTVELG) 
0055 2804 JR Zy +43 0D05É 
0D37 67 LD Hs, A 
- 0058 FD6E0E L.D L) CIY+YERDCK) 
0D03E 228F3C LD CATTRTI HL 
0DSE 219130 L0 HL) FELAG 

0061 2002 JR NZ 3 +230D063 
0D463 7E LD As (HL) 

0D64 0F RECÁ 

0043 AE XOR (HL 

0D66 ES655 AND Sy 

0068 AE XOR (HL > 

0D69 77 LO (HL A 

0D6A (9 RET 

3 comando CULS 

0ND6E CDAFOD CALL DDAF 

0D6E 213C3C LD HL.) TVUFLAG 
0071 CEAÉ RES 3, CHL.) 

0073 CECó SET 0, (HL) 

00735 CD4D0D CALL 0D4D 

0078 FD4631 LD y CIY+YDFSZ) 
007E CD440E CALL 0544 

0D7E 21C053A L.D HL, SACO 

0081 3A8D3C L.D A, CATTRF) 
0084 05 DEC E 

0083 1807 JR +730D8E 

0087 0E20 LD C,20 

0089 2E DEC HL 

0DSA 77 LD (HL),A 

0D8E 0D DEC C 

0D8C 20FE JR NZ,-350D89 
0D8E 10F7 DJINZ -930D87 

0090 FD363102 LD (IY+YDFSZ),02 
0D94 3EFD LD A+ FD 

0D96 CDO116 CALL SELDEV 

y desviar el canal de salida hacia 0U>9F4 
0D99 2A51539C LD HL, (CURCHL 3 
0D9C 11F409 LD. DE ,FRINT 
0D9F A7 AND A 

0DA0 73 LD (HL>,E 

0DA1 23 INC HL. 

0DA2 72 LD (HL3,D 

0DA3 23 INC HL. 

0D0DA4 114810 LD DE,10A8 
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0DA7 
0DA8 
ODAA 
0DAD 


, 

O0DAF 
0DE2 
0DES5 
0DE:9 
0DEC 
0DEE 
0DC1 
0DC4 
0DC46 
00C9 
0DCE 
0DCF 
0DD0 
0DD1 
00DZ2 
00D6 


, 

0DD9 
0009 
0DDC 
0DE.0 
0DEZ2 
0DÉ3 
0DE7 
0DE9 
0DEC 
ODEE 
O0DEF 
0DFO 
0DF3 
0DF4 
0DFó 
0DF7 
0DF8 
0DFA 
0DFE 


, 
0DFE 
0E00 
003 
DE03 
0E06 


0E07 


0£08 
DEDA 
0E0E 
0E0D 
0E0E 
0E11 


3F 
38F6 
012117 
182A 


210000 
227D5C 
FDCE3086 
CD940D 
3EFE 
cDo11ó 
CD4D0D 


FO363201 
012118 


CURSOR+ 
210053 
FDCE014E 
2012 
78 
FDCE0246 
2803 


FDB431 


C3DCOA 


0617 
CD9E:0E 
0808 


C,-1030DA0 
EC,1721 
+42 3 CURSOR 


HL.,0000 
(COORDX) , HL 
0, CIY+YFLGS2) 
0094 


HL, CCURCHL ) 
DE) FRINT 

cHLI) ¿E 

HL. 

CHILD 
(TIY+YSCRET),01 
EC,1821 


HL,5E00 

1, (IY+YFLAGS)iset if printer 
NZ,+1830DF4 

AE 

0D, CIY+YTVFLG)¿set if lower 
Z +33 0DEE 

(IY+YDFSZ) 


screen 


AE 
NZ,+1250E19 
DE, HL 

HL, F8E0 
HL , DE 
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0£08 


AND 
RECA 
RECA 
RECA 
LD 


DE, HL 
EC,0020 
Á 


DE, HL 
HL,FFEO 
HL. , DE 
DE, HL 
ESÁ 

07 


F8 


NZ),-375$0E0D 


HL. 
H 
EC 
C 


0868 
HL,FFEO 
HL. , DE 
DE, HL. 


E, 01 


. EC 


(HL>,00 
DE 


DE,0701 
HL. , DE 
Á 
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NZ,-315$0803 


0E63 E6F8 AND F8 


0E65 47 LD ESÁ 

0E66 20E3 JR NZ,-2730E4D 
0£E68 El POF HL 

D0E69 24 INC H 

DESA Cl POF EC 

DE6ÉE 0D DEC C 

0E6[ 20DC JR NZ,-3630E4A 
DESE CD880E CALL 0E88 

0E71 62 LD H,D 

0E72 ¿E LD L,E 

0E73 13 INC DE 

0E74 3ABDIC LD Ay, CATTREF> 
0E77 FDCE0246 EIT 0, CIY+YTUFLG) 
0E7E 2803 JR Z,+30E80 
DE7D 344830 LD A+, CEORDCR 
0E80 77 LD CHLI),A 
.0E81 0 DEC EC 

0£E82 EDEO LDIR 

084 C1 FOF EC 

0E83 0E21 LÓ 0,21 

0£E87 (9 RET 

$ 

0E88 7€ LD AsH 

0E89 0F RECA 

0E8A 0F RECA 

DESE 0F RRKCA 

0E8C 3D DEC ñ 

0E8D F630 OR 30 

DESF 67 LD Hs,A 

DE90 EE EX DE), HL 

0E91 él LD H,C 

0E92 68 LD L,E 

0E93 29 ADD HL, HL 

0E94 29 ADD HL, HL 

D0E935 29 ADD HL, HL 

DE96 29 ADD HL, HL 

0E97 29 ADD HL, HL 

0E98 44 LD EsH 

0E99 4D LD C,L 

DE9A C9 RET 


y calcular la direccion de la pantalla de la linea inicial 
¡ (B)=numero de linea con +21i=arriba y +i=abajo 


0E9E 3E18 LD A+ 185+24 
DE9D 90 SUE: E 
0E9E 357 LD DIA 
DE9F 0F RRCA 

DEAD 0F RRCA 

DEA1 0F RECA 

DEAZ ESE0 AND E0 
DEA4 6F LD L,A 
DEAS ZA LD As,D 
DEAS E$18 AND 18 
DEAS F640 OR 40 
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DEAA 67 LD H,A 
DEAE C9? RET 

¿ comando copy 

DEAC COFY + 


DEAC F3 DI 

DEAD 060 LD EsJEO 
DEAF 210040 LD HL,4000 
0EE2 ES FUSH HL 

0EE3 C3 FUSH EC 

0E64 CDF40ÉE CALL DEF4 
QEE7 Ci FOF ¿2 

0£68 El FOF HL 

DEE9 24 INC H 

DEEA 7C L.D AsH 

DEE ES07 AND 07 

DEED 2004 JR NZ,+1050EC9 
DEEF 7D LD As+L 

0ECO0 Có620 A4DD 20 

DECZ 6F LD LA 

0EC3 3F CcF 

0EC4 9F SEC A 

DECS E6F8 AND F8 

DEC7 84 ADD H 

0EC8 67 L.D H,A 

0EC9 10E7 DJNZ 233082 
0ECE 180D JR +13;30EDA 


s imprimir el contenido del buffer de la impresora 
DECD LERINTS 


DECD F3 DI 

DECE 21005 1.D HL,5E00 
0ED1 0608 L.D E, 08 
0E03 (3 FUSH BC 

0ED4 CDF40E CALL DEF4 
0EDb7 C1 FOF EC 

0ED8 10F9 DJINZ -730ED3 
DEDA 3E04 LD A,04 
DEDC DIFE ouT (FE)+A 
DEDE FE El 


s borrar y actualizar el contenido del buffer de la impresora 
DEDF CLREF $ 


DEDF 21005 LD HL,3E00 

DEE2 FD7346 LD (IY+YFRCC)¿L 
DEES AF XDR Á 

DEE6 47 LD EJA 

DEE7 77 LD CH) A 

DEE8S 23 INC HL 

DEE9 10FC DJNZ 4 3$0EE7 

0EEE FDCE308E RES 1, (IY+YFLGS2) 
DEEF 0E21 LD C,21 

0EFi C3D90D JF CURSOR . 

, 

0EF4 78 LD Ay,E 

D0EFS FE03 CF 03 

DEF7 9F SEC Á 
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EREAK 
C,+1030F0C 
A,04 
(FE)IA 


CLREF 
08 
+12 

A» (FE) 
Á 

M 
NC»,-21530ÉEFD 
0,20 
E, (HL. 
HL. 

E, 08 
D 


E 
D 
As (FE) 


NC+,-35$0F1E 
A+D 

(FEA 
-1630F18 

L 
NZ,-235$0F14 


HL.) CERRSF) 

HL. 

HL,107F 

HL. 

(ERRSF)>,SF 
INKEYiíwsait for key 
AF 

D,00 

E, CIY+YFIP)3-1 
HL.,00C8 
EEEFERjconfirm keypress 
AF 

HAL, 0F38 

HL 

18 

NC,+4930F81 

07 

C,+4355$0F81 

10 

C,+5850F92 


0EF8 E602 

DEFA D3FE OUT 
0EFC 37 LD 
DEFD CDS41F CALL 
0F00 3804 JR 
0F02 3E04 LD 
0F04 DIFE ouT 
0F06 FE El 
0F07 CDDFOE CALL 
0F0A CF RST 
0FO0E 0C DEFE: 
0FOC DEFE IN 
0F0E 87 ADD 
0FOF F8 RET 
0F10 30EEÉE JR 
0F12 0E20 LD 
0F14 S5E LD 
0F15 23 INC 
0F1464 0608 LD 
0F18 CE1i2 RL 
0F1A CE1L3 RL 
0F1C CEJA RR 
0F1E DEFE IN 
0F20 1F RRA 
0F21 30FE JR 
0F23 ZA LD 
0F24 D3FE OUT 
0FZ6 10F0 DINZ 
0F28 0D DEC 
0F29 20E9 JR 
0FZE C9 RET 
¡ entrar en editor de lineas 
0F2C GETLINS 

0F2C 2A3D3C LD 
DFZF ES FUSH 
030 217F10 LD 
0F33 ES FUSH 
0F34 ED733D3C LD 
0F38 CDD415 CALL 
0F3E FS FUSH 
0F3C 1600 LD 
0F3E FDSEFF LD 
0F41 210800 LD 
0F44 CDES03 CALL 
0F47 F1 FOF 
0F48 21380F LD 
0F4E ES FUSH 
0F4C FE18 cr 
0F4E 3031 JR 
0FS50 FE07 cF 
0F32 382D JR 
0F54 FE10 cr 
0F36 383A JR 
0F58 010200 LD 


EC+0002 
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0F5E 37 LD DyÁ 


0F3SC FEló CF 16 

0FSE 380€ JR C,+1230F6C 
060 03 INC EC 

0F61 FDCE377E EXIT 7 + (IY+YFLAGX) 
0F63 CÁ1E1O0 JE Z,101E 

0F68 CDD4153 CALL INKEY 

0F6E SF L.D ESÁ 

0Fé6C CDD415 CALL INKEY 

0FéÉF D5 FUSH DE 

0F70 2ASESC LD HL.) (KCUR) 
DF73 FDCE0786 RES 0, CIY+YMODE > 
0F77 COSSió CALL 1655 

0F7A C1 FOF Je 

0F7E 2: INC HL. 

0F7E 70 LD (HL3,E 

0F7D 23 INC HL. 

DF7E 71 LD (HL CE 

0F7F 1804 JR +1030F8E 


s insertar el caracter en la linea de edicion 
; mediante desplazamiento (hasta STKEND) 


0F81 FDCE0786 RES 0, CIY+YMODE) 
085 2ASES5C L.D HL. , (KCUR) 
0Fe88 COS2l16 CALL 1632 

FSE 12 LD (DEIA 
0F8C 13 INC DE 

0F8D EDSIJESC LD - CKCUR) ¿DE 
0F91 [9 RET 

, 

0F92 SF LD EA 

0F93 14600 LD D,00 

095 21990F LD HL ,0F99 
0F98 19 ADD HL, DE 
099 SE LD Es CHL.> 
0F9%A 19 ADD HL, DE 
0F9E ES FUSH HL 

0F9C 2ASESC LD HL. y (KCUR 
0F9F [9 RET 


; Tabla de datos para los codigos de las teclas de edicion 
DFAD 09446450 

0FA% ES7O7ECF 

0FAS D4 

y tecla de edicion 

0FA9 EDIT: 


0FA9 2449350 LD HL), CEFFC) 
OFAC FDCE376EÉ EIT 3) CIY+YFLAGX) 
0FEO C29710 JF NZ,1097 

0FE3 CDé6E19 CALL 196É 

0FEó6 CD9OS16 CALL 1695 

0FE9 7A LD A,D 

O0FEA E3 OR E 

O0FEE CA9710 JE 2,1097 

0FEE ES FUSH HL. 

0FEF 23 INC HL 


57 


0FCO 4ÉE LD C, (HL) 


0FC1 23 INC HL. 

0FCZ2 46 LD E, (HL) 
0FC3 210400 LD HL,000A 
DFCó 09 ADD HL, EC 

DFC7 44 LD EH 

0Fc8 4D LD C,L 

0FC9 CDOS1F CALL 1F035 

0FCC CD9710 CALL 1097 

0FCF 2A313C LD HL.) (CURCHL. > 
0FD2 ES EX HL, (SF) 
0FD3 ES FUSH HL 

0FD4 3EFF L.D Ay FE 

0FD6 CDO116 CALL SELDEV 
0FD9 El FOF HL 

D0FDA 2 DEC HL. 

DFDE FD3S0F DEC CIY+YEFFC) 
0FDE CDS318 CALI 19595 

O0FE1 FD340F INC CIY+YEFFC) 
DFE4 2A3S935C LD HL. y CÉLINE) 
0FE7 23 INC HL 

0FES 23 INC HL. 

0FE9 23 INC HL 

OFEA 23 INC HL. 

OFEE 22GESC LD (KCUR) , HL 
OFEE El FOP HL. 

FEF CDiSl6 CALL 1613 

DEF2 CS RET 

, 

0FF3 FDCE376ÉE ELIT Sy CIY+YFLAGX) 
DFF7 2008 JR NZ,+851001 
DFF? 214930 LD Hi. EFFC 
0FFC CDOF19 CALL 190F 

OFFF 18460 JE +109;106É 
1001 FD360010 LD (TY+YERRNRK)35,10 
1005 181D JR +293$1024 

, 

1007 CD3110 CALL 1031 

1004 1803 ocJR +5+1011 

, 

100C 7E LD As HL.) 
100ND FEO0OD CF 00 

100F C8 RET Z. 

1010 23 INC HL 

1011 223E3€ LD (KCUR) , HL 
1014 C9 RET 

, 

1015 CD3110 CALL 1031 

1018 010100 LD EC,0001 
1016 C3E819 JE 19E8 

, 

101€£ CDD415 CALL INKEY 

1021 CDD413 CALL INKEY 

1024 El FOF HL 
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FDCE:007E 
20 


F9 


C9 


FDCE376EÉ 
co 
24493C 
cnéE19 
EE 
Co93ió 


=214A5C 


cpi1Ci9 
CD9317 
3800 

c30116 


FDCE377E 
2848 
c3810F 


HL 

HL 

(ERRSF) ¿HL 

7 y CIY+YERRNR) 
NZ 

SF), HL 


1195 

HL. , DE 

HL.) DE 

HL 

EC 

[o 

EC 

EsH 

C,L. 

H,D 

L,E 

HL. 

fis (DE) 

FO 

10 
NZ,+9310531 
HL. 

As, (DE) 

17 

00 
NZ,+151051 
HL. 

ñ 

HL, EC 
HL y EC 

DE, HL. 
C,-263103É 


3) CIY+YFLAGX) 
NZ 

HL.) CEFFC) 
196É 

DE, HL. 
1695 

HL) 3C4A 
1910 

1793 

A,00 
SELDEV 


7 y CIY+YFLAGX) 


Z,-8851024 
0F81 
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107F 
1083 
1083 
1089 
108E 
108E 
1091 
1094 


) 

1097 
1098 
109E 
1098 
109F 
1042 
1046 
1047 


¡ obtener tecla 


1048 
104 
104F 
1060 
1064 
1065 
1068 
1060 
1060 
10C1 
1004 
1003 
1007 
1009 


10CE : 


1000 


10CF : 


1001 
10D2 
10D4 
1005 
10D6 
10D7 
10D9 


10DE 2 


FDCE3066 
28A1 
FD3600FF 
1600 
FDSEFE 
219014 
CDES0O3 
C3300F 


ES 
CD9011 
ZE 
CDES19 
2235850 
FD360700 
El 

9 


FOCEOZ5E 
C41D11 
A7 
FDCE016É 
Ca 
3460830 
FDCE01LAE 
ES 
FDCE024E 
(C446E0D 


í caps lock 


10DD 
100 
10E2 
10E3 
10E4 


, 

10€6 
10E8 
10E9 
10EÉ 


2164350 
3E.08 
AE 

77 
180E 


FEE 
D8 
D60D 
21413C 


RET 


4, (IY+YFLGS2) 
Z+-9331026 
CIY+YERRNR)),FF 


D,00 


Ey CIY+YRASP) 5-2 


HL,1A90 


EEEFPER$buzz 


0F30 


HL. 
1190 
HL. 
19E3 


(KCUR) > HL. 
(TIY+YMODE3>,00 


HL. 


de entrada 
3) CIY+YTUFLG) 


ELIT 
CALL 
AND 
EIT 
RET 
LD 
RES 
FUSH 
ELIT 
CALL 
FOF 
CF 


NZ,111D 
ñ 


5, (CIY+YFELAGS )3anmgthine pressed? 


N 


As (LASTK 


)ikeg code 


Sy CIY+YFLAGS) 


AF 


5), CIY+YTUEFLG) 


NZ +, 0Dé6E 
AF 
20 
NC,+8251 
10 


11€ 


NC) +43510FA 


DE 
NC>+,+105$1 
EJÁ 
01 
Cs A 
Ay E 


12 


+4251105 


0DE 


NZ,+9310E6 


HL),FLAGS2 


A, 08 
(HL) 
(HL),A 
+14310F4 


DE 

C 

0D 

HL. , MODE 
60 


flip bit 3 
¿Caps lock flaq 


10EÉ 
10EF 
10F0 
10F2 
10F4 
10F8 
10F9 


> 

10FA 
10FE 
10FD 
10FE 
1100 
1102 
1104 
1105 
1108 
110€ 
1100 
1110 
1113 
1116 
1117 
1118 
1119 
1114 
111€ 
111€ 


) 
1110 
1120 
1124 
112 
1125 
1120 
112F 
1130 
1133 
1134 
1138 
113E 
1130 
113D 
1140 
1141 
1144 
1145 
1148 
114E 
114C 
114D 
1130 
1133 
1154 


BE cr 
77 LD 
2002 JR 
3600 LD 
FDCE02DE SET 
EF cr 
c9 RET 
47 LD 
E607 AND 
4F LD 
3E10 L.D 
CES8 EXIT 
2001 JR 
30 INC 
FD71D3 LD 
110D11 LD 
1806 JR 
3A0D5C LD 
114810 LD 
24A4F5C LD 
qa INC 
23 INC 
73 L.D 
23 INC 
7 L.D 
37 SCF 
C9 RET 
CD4DOD CALL 
FDCEO29E RES 
FDCEO0ZAE RES 
2ABA5C L.D 
ES FUSH 
24A3D5C LD 
ES PUSH 
216711 LD 
ES 'FUSH 
ED733D5C LD 
2A8250 LD 
ES FUSH 
37 scF 
cD9511 CALL 
EE EX 
cD7D18 CALL 
EE EX 
CDE118 CALL 
2ABAS5C LD 
E3 EX 
EE EX 
CD4D0D CALL 
3A8ES5C LD 
92 SUE 
3826 JR 


(HL) 

(HL),A 
NZ,+2310F4 
CHL3,00 

3) (IY+YTVFLG) 


NZ,+1511053 
Á 


CIY+YKDATA),05-43 


DE+,110D 
+631113 

A, (KDATA) 
DE,1048 
HL), CCHANS > 
HL 


0D4D 

3) CIY+YTVFLG) 
39 CIY+YTUFLG) 
HL) CSFOSNL > 
HL 

HL, CERRSF'> 

HL 

HL. ,1167 

HL. 

(ERRSF),SF 
HL, CECHOE ) 

HL 


11953 

DE , HL 

187D 

DE, HL 

18E1 

HL), (SFOSNL ) 
HL, (SP) 
DE , HL 

0D4D 

A, (3C8E:) 

D 
C,+385117C 
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1156 
1158 
1159 
1150 
115€ 
1160 
1161 
1164 
1165 
1167 
1169 
116€ 
116F 
1172 
1176 
117A 
117€ 
1170 
117E 
117F 
1182 
1183 
1184 
1187 
1188 
118€ 
118F 


, 

1190 
1193 
1194 
1195 
1199 
119D 
119E 
1142 
1143 
1146 


, 

1147 
11A8 
11AA 
11AD 
1160 
1161 
1162 
114 
1166 


FD3600FF 
EDSEBASC 


2613 
2E 

A7 
EDSESOISC 
FDCE376ÉE 
Cc8 
EDSE6135C 


3 NEN command 


1167 
1168 
116 
116E 
11EF 


F3 

3EFF 
EDSEEZSC 
D9 
ED4EE43C 


NZ,+63115E 
A,E 
(IY+YSFOSL) 
NC,+305$117C 


-2331150 

D,00 

Es CIY+YRASFP) 5-2 
HL.,1490 

EEEFER 
(TY+YERRENR)),FF 
DE), (SFOSNL ) 


HL 

(ERRSF) , HL 

EC 

DE 

CURSOR 

HL. 

(ECHOE ) , HL 
(TY+YXFTR+1),00 


HL.) CNORKSF') 
HL. 

á 

DE), CELINE)> 

5, CIY+YFLACX) 
Z 

DE) (NORKSF') 

| 

HL), (STKEOT) 


Ay (HL) 

DE 

EC,0006 
Z,19E8 

As CHL) 

AL 

0D 
NZ,-1355$11A7 


A) FF 
DE), (RÁMTOF') 


¿save some variables 


EC), (FRAMT) 
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1103 EDSE3B3GC LD DE, (RÁASF) 


1107 24A7E5C LD HL, CUDG) 

11CA D9 EXX 

is trae aqui el “reset” de puesta en marcha 
11C0E 47 LD ESA 

11CC 3E07 LD A,07 ¿white 
1iCE D3FE OUT (FE))A ¿border 
1100 3E3F LD As, 3F ¿point Interriupt 
11D2 ED47 LD I,A ¿DMA into ROM 
11D4 00 NOF ¿ho 

11D3 00 NOF 

11D4 00 NOF ¿hum 

11D7 00 NOF 

1108 00 NOF $3Y3wn 

11Db9 00 NOF 

11DA 62 LD H,D ¿RAM “test” 
110E 6€E LD LE 

11DC 3602 LD (HL, 02 

11DE 2E DEC HL 

11DF EC CF H 

11E0 20FA JR NZ,-65$11DC 

11E2 A7 IND Á 

11E€3 EDS2 SEC HL. , DE 

11£5 192 ADD HL, DE 

11£6 23 INC HL. 

11E7 3006 JR NC)+6;11EF 

11€E9 35 DEC (HL) 

LEA 2803 JR Z¿+3311ÉEF 

11EC 35 DEC CHI.) 

11ED 28F3 JE Zi 13$11EZ 

11EF 2E DEC HL. 

y recuperar las variables anteriormente salvadas en caso de 
3 NEW 

11F0 D9 EXX 

11F1 ED43E45C L.D (PRAMTI EC 

11F35 EDIS3383C LD (RASF) ¿DE 

11F9 227E35C LD (UDG) ¿HL 

11FC D9 EXX 

11FD 04 INC E 

11FE 2819 JE 23+25$1219 skip if NEW 
1200 22543 LD (FRAMT) +, HL. 

1203 LIAF3E LD DESGEÁF ¿UDG area 
1206 0145800 LD EC,0048 ¿copy Á-U 
1209 EE EX DE, HL 

1204 EDES LDDR 

1200 EE EX DE, HL 

120D 23 INC HL. 

120E 227E3C LD (UDG) , HL 

1211 2E DEC HL. 

y inicializar otras variables 

1212 014000 LD EC,0040 

1215 ED433853C LD (RASF),EC 

1219 22E23C LD (RAMTOF') , HL 

1210 21003C LD HL.¿3C005$char map 
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121F 
1222 
1225 
1227 
1228 
1229 
122A 
1225 
122E 
1230 
1234 
1235 
1238 
123€ 
123E 
1241 
1242 
1244 
1243 
1246 
1249 


5 hacer que 


1244 
124D 
12350 
12392 
123% 
1236 
1238 
1259 


1256 : 


1230 
1235F 
1262 
1263 
1267 
1264 
1246Db 
1270 
1273 
1276 
1279 
1270 
127F 
1282 
1285 
1287 
128€ 
128É 
1292 
1293 
1296 
1299 
1290 


22365€ 
ZAE25C 
363E 
2E 

F9 

ZE 

ZE 
223DSC 
EDSó 
FD213A3C 
FE 
21665 
224F5C 
11AF15 
011500 


223350 
224E3C 
3680 


226130 
226350 
226350 
32838 
328D3C 
328F3C 
324836 
212305 
2209350 
FD33C6 
FDISCA 
210615 
111050 
010E00 
EDE:0 
FDCE01CE 
CDDFO0E 
FD363102 
CD6E:0D 
AF 
113815 
CDOADC 
FDCE02EE 


el 


INC 


espacio del 


LD 


(CHARS) , HL 
HL. , (RÁMTOF) 


CERRSF') , HL 
1 sinmt=kRST 38 
IY,ERRNR$fixed value assumed 


HL,53CE6 

(CHANS) , HL 

DE, 15AF3defanlt charnels 
EC+0015 

DE , HL. 


DE, HL 

HL. 

(DATADD) +, HL 

HL. 

programa este vacio a nivel 
(FROG), HL 

(VARS) , HL 


CH.) ,80 

Hi 
CELINE) HL 
(HL), 0D 

HL. 

CHL.>),80 

HI. 


(NORKSF) , HL 
(STKEOT), HL 
(STKEND) , HL 

4,38 

CATTREI,A 
CATTRTI,A 
(EORDCR)9A 

HL., 0523 

(REFDEL) ¿HL 
(IY+YKSTATE 5-58 
CIY+YKSTATE+4) 3-34 
HL, 1306 

DE,STRMS 

EC,000ÉE 


1, CIY+YFLAGS) 
CLREF3cleasr print buffer 
(1IY+YDFSZ),02 

0D6E: 

A 

DE,1538 

0C0A 

SS) (IY+YTUFLG) 
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logica 


1240 1807 JR +7312A9 
¿ obtener linea de entrada 


12A2 FD343102 LD (TIY+YDFSZ),02 
1246 CD9S17 CALL 1795 

1249 CDE016 CALL 1660 

12AC 3E00 LD As,00 

12AE CD01lé CALL SELDEV 

1281 CD2C0F CALL GETLIN 

1264 CD171E CALL 1617 

127 FDCE007E EIT 7 y CIY+YERRENR) 
125E 2012 JR NZ),+18312CF 
12D FDCE3066 EIT 4 + (TIY+YFLGS2) 
1201 2840 JR Z,+6451303 
1203 2A5935C LD HL) CELINE) 
1204 CDA711 CALL 1147 

1209 FD3600FF LD CIY+YERRNR) ¿FF 
120D 18DD JR -35$12AC 

¿ ver si tiene numero de linea 

120F 2A5935C LD HL, CELINE ) 
12D2 225D3C LD (CHADD) ¿HL 
1205 CDFE19 CALL 19FE: 

1208 78 LD AE 

12D9 El Or Cc 

12DA C25D15 JF NZ , ADDLIMN 


s no hay numero por tanto se trata de un comando directo del 
; Basic 
, 


120D DF EST 18 

12DE FE0OD CF 00 

12£0 2800 JR Z3-64312A2 
12E2 FDCE3046 EIT 0, CIY+YFLGSZ) 
1286 C4AF0D CALL NZ,0DAF 

12€89 CDGEOD CALL 0NDSE 

12EC 3E19 L.D As 19 

12£E FD964F SUE (TIY+YSFOSN+1) 
12F1 328030 1.0 (SERIA 

12F4 FDOCEOJFE SET 7 CIY+YFLAGS) 
12F8 FD3600FF L.D CIY+YERRNR)¿FF 
12FC FD3604A01 L.D CTIY+YNSFFC),01 
1300 CD8SÁlE CALL 184 

1303 76 HAL. T 

1304 FDCEO1AE RES Ss CIY+YFLAGS) 
1308 FDCE304E EIT 1, CIY+YFLOS2) 
1300 C4CD0E CALL NZ,LERINT 

130F 3AJASGC LD A, CERRNK) 

1312 30 INC ñ 

1313 FS FUSH AF 

1314 210000 LD HL.,0000 

1317 FD7437 LD CIY+YFLAGX),H 
1314 FD7426 LD (CIY+YXFTR+1),H 
131D 220E3C LD (DEFADD) , HL. 
1320 210100 LD HL.,0001 

1323 221630 LD (3016), HL 

13246 CDE01i6 CALL 16560 

1329 FDCE37AE RES 3) (IY+YFLAGX) 
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132D CDé6E0D CALL 
1330 FDCE0ZEE SET 
1334 Fi FOF 
13335 47 LD 
1336 FE0A CF 
1338 3802 JR 
133A C607 ADD 
1330 CDEF1S3 CALL 
133F 3E20 LD 
1341 D7 RST 
1342 78 LD 
1343 119113 LD 
1346 CDOÁDC CALL. 
1349 AF XOR 
1344 113615 LD 
134D CDOA0DC CALL 


1350 ED4E433C LD 
1354 CD1IE1ÍA CALL 
1357 3JEJA LD 
1339 D7 RST 
1354 FD4E0D LN 
135D 0600 LD 
135F CD1EJA CALL. 
1362 CD9710 CALL 
1365 3ABASC L.D 
1368 3C INC 
1369 281E JE 
136E FE09 CF 
13650 2804 JE 
136F FEILS CF 
1371 2003 JR 
1373 FD340D INC 
1376 010300 LD 
1379 117030 LD 
1370 214430 LD 
137F CE7ZE EIT 
1381 2801 JR 
1383 09 ADD 
1384 EDES LDDR 


1386 
1384 
138E 


DATOS (se 
el indice 


el ultimo 


1391 80 
1392 4FCE 


FD360AFF LD 
FDCE019E RES 
Cañc12 


JE 


omite su codificacion) 
del mensaje se muestra en cada caso 
caracter de cada mensaje tiene activado el 


0Dé4EÉ 


3 (IY+YTVUFLG) 


AF 


C,+25133C 


07 

15EF 
4,20 

10 

AE 
DE,1391 
0C0A 

Á 
DE,1536 
0C0A 
EC), (FFC) 
1A1ÉE 

A+ 3 

10 


CC), CIY+YSUEFC) 


E ,00 
141 
1097 


A+ CERRAR) 


Á 


Z,+2731386 


09 


Ly +4$1373 


153 


NZ,+311376 
CIY+YSUEFC) 


EC,0003 


DE, OSFEFC 
HL) NSFEC 


7 y HL.) 


Z,+131384 


HL, EC 


CIY+YNSFFC)¿FF 
3) CIY+YFLAGS) 


124C 


íflea tiyte 


3-01 


4£453834 3+00 
20774974 
686F7374 
20464FD2 
56617269 
616260463 
206E6F74 


DK” 
“NEXT withnont FOR” 


¿+01 “Variable rot found” 
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bit 7? 


1380 2046466F75 

1354 6EE4 

13566 53756273 +02 *“Subseript wrong” 
13EA 63726970 

13EE 74207772 

1302 6F6EE7 

1305 4F737420 $+03 “Out of memory?” 
13C9 4F66206Db 

13CD 6£56D6F72 

13D1 F9 

13D2 4F737420 3+04 “Out of sereer” 
13D6 6F662073 

13DA 63726565 

13DE EE 

13DF 4E7536D62 3+05 “Number too big” 
13E3 65722074 

13E7 6F6F2062 

13EE 649E7 

13ED 5245594395 3+06 “RETURN witohnt GOSUE * 
13F1 524E2077 

13FS 6974686F 

13F9 73742047 

13FD 4F35339502 

1401 4356E6420 ¿+07 “End of file” 

1405 6F662066 

1409 696CEÉ3 

1400 53544F50 3$+08 “*STOF statemert” 
1410 20737461 

1414 7140636D65 

1418 6EF4 

1414 496E7661 3+09 *Irvalid arqumert” 
141E 40496420 

1422 61726773 

1426 6D636EF4 

1424 496E746% 3+10 “Integer out of ranqe?! 
142E 676357220 

1432 6737420 

1436 6F662072 

1434 616E£67ES3 

143E 4E6F6E73 ¿+11 “Nonmsense in EÁSIC” 
1442 656E7363 

1446 20696E20 

1444 42413349 

144E C3 

144F 42324541 +12 “EREAK -— CONT repeats” 
1433 4E202D20 

1457 434F4E54 

1435E 20726570 

1439F 656174F3 

1463 4F737420 +13 “Out of DATA” 

1467 6F662044 

146 4154C1 

146E 496E7461 3+14 “Invalid file name” 
1472 60696420 
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1476 466968065 

147A 206E616D 

147E ES 

147F 4E6F2072 ¿+15 “No room for line” 
1483 4F4F6D20 

1487 666F7220 

148E 6C696EE53 

148F 53544F350 ¿+16 *STOF in INFUT” 
1493 20496E20 

1497 494E5055 

149E D4 

1490 464F5220 3+17 “FOR without NEXT” 
1440 77497468 

14454 6F737420 

1448 4E4558D4 

144AC 496E7661 3$+18 “Invalid 1/0 device” 
14E0 40496420 

1464 492F4F20 

1458 646537669 

14EC 63É3 

146E 496E7661 3+19 “Invalid colour” 
1402 60696420 

14046 434F6C6F 

14C0A 752 

1400 423524541 3$+20 “EREAK imto program” 
14D0 4E20696É 

14D4 7446F2070 

14D8 726F6772 

14DC 61Éb 

14DE 52414D34 $+21 “*RÁAMTOF no eco0d” 
14E2 4F50206É 

14E4 64F204676F 

14EA 6FE4 

14EC 53746174 +22 “Statement lost” 
14F0 6456D656ÉE 

14F4 74206C46F 

14F8 73F4 

14FA 496E74661 +23 “Invalid stresm” 
14FE, 606796420 

1502 73747265 

1506 61ED 

1508 464E2077 3+24 “EN without DEF” 
1500 6974684 

1510 73742044 

1514 43506 

1516 50617261 $+25 “Farameter error” 
1514 6D6374653 

151E 72206372 

1522 726FF2 

1525 54617065 3+26 'Tape loadinmea error” 
1529 206C6F61 

152D 64696E£67 

1531 20657272 

1535 6FF2 


1337 2CÁA0 $+27 comma space 

1539 7F203139 3+28 copyright space “1982 S”' 

1353D 38322053 jor. 

1541 6796E636€ foo. *inclair Research Ltd” 

15435 61697220 

1349 32657365 

154D 41726368 

1551 204074E4 

y error “no raom for line” tíno hay sitio para la linea) 


135395 3E10 É LD As+t13+1 
1537 010000 LD EC,0000 
1554 C31313 JE 1313 


y anadir una linea de BASIC al programa 
135D ADDLIN+ 


155D ED43493C LD (EFFC),EC 
1561 2A5D3C LD HL., (CHADD) 
1564 EE EX DE, HL 

1565 21359153 LD HL+1353 
1568 ES FUSH HL. 

1569 24613 LD HL.) (HORKSF) 
1360 37 scF 

156D EDSZ SEC HL. + DE 

156F ES FUSH HL. 

13570 60 L.D H,E 

1571 69 L.D L,C 

1572 CD6E19 CALL. 196É 

13575 2006 JR. NZ,+63157D 
1577 CDE819 CALL 1958 

157A CDES19 CALL. 198 

157D C1 FOF EC 

137E 79 LO AL 

137F 3D DEC ñ 

13580 E0 OR E 

1581 2828 JR Z,+40313AEÉ 
1583 03 FUSH le 

1384 03 INC - EC 

1585 03 INC EC 

1586 03 INC EC 

1587 03 INC 'C 

1388 2E DEC HL 

1589 EDIESISC LD DE, (FROG) 
138D D3 FUSH DE 

158É COusió CALL 1653 

1591 El FOF HL. 

1592 223330 L.D (PROG), HL. 
1595 C1 FOF EC 

1596 03 FUSH EC 

1597 13 INC DE 

1598 24615 LO HL.» (NORKSF) 
1595 2E DEC HL 

1590 2E DEC HL 

159D EDES LDDR 

159F 244935C LD HL) CEFFC) 
1542 EE EX DE, HL 
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1543 Cl FOF ¿C 


1544 70 LD cHL)>,E 
1545 2E DEC HL 
15A6 71 LD (HL)),C 
1547 2E DEC HL 
1548 73 LD (HL),E 
1549 2E DEC HL 
15AÁ 72 LD (HL),D 
15AE Fi FOF AF 
15AC C3A212 JE 12A2 


y valores iniciales STRMS 
15AF F4094A810 DEFN 09F4,10A8 


1563 4€ DEFE *K” 

1564 F409C415 DEFN 09F4,13C4 
13568 33 DEFE 15! 

1569 810FC415 DEFN 0F81,1304 
15ED 32 DEFE *R/ 

156E F409C415 DEFN 09F4,13C4 
1302 50 DEFE Ad 

1503 80 DEFE: +128 


g error “invalid 140 device” (dispositivo de entrada/salida 
¿ no valida) 


1504 CF RST 08 

19035 12 DEFE +18 

y valores iniciales de CHÁNS 

1506 0100 DEFWH +013K0 

1508 0600 DEFWN +063'5” 

135C0A 0E00 DEFN +115kR” 

150C 0100 DEFN +013'K” 

135C0E 0100 DEFN +0153K” 

130 0600 DEFN +063S” 

152 1000 DEFWNW +163'F” 

y esperar a la pulsacion de una tecla 
13D4 INKEY < 

154 FDCE026É EIT S, CIY+YTUFLG) 
15D8 2004 JR NZ,+4315DE 
15DA FDCE02DE SET 3) (IY+YTVFLG) 
15DE CDE615 CALL. SLCOTIF 
15£1-:D8 ' RET c 

15562 28FA JR Z,-6315DEÉ 

y error “end of file” final de fichero) 
1554 CF RST 08 

135535 07 DEFE +7 

, 

1356 SLCTIF: 

1556 D9 EXX 

15587 ES FUSH HL. 

15£8 2A5135C LD HL.) CCURCHL.) 
1SEE 23 INC HL. 

AGEC 23 INC HL. 

15Eb 1808 JR +8513F7 

1S5EF 1E30 LD E,30 

135Fi 83 ADD E 

15F2 D9 EXX 
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+ 


, 
135F3 SLCTOF* 


15F3 ES FUSH HL. 

15F4 2A513C LD HL.) CCURCHIL > 
15F7 SE LD Es, (HL) 

15F8 23 INC HL 

15F9 56 LD D, HL) 

15FA EE EX DE, HL 

15FE CD2C16 CÁL.L. 162€ 

15FE El FOF HL. 

15FF D9 EXX 

1600 C9 RET 


¡***x seleccionar el dispositivo (A) para la corriente en uso 
y -3,-2,-1 reservados para el uso del sistema 
y el usuario puede hacer OPEN£ o bien CLOSEf del 0 al 15 


1601 SELDEV+ 


1601 87 ADD A 

1602 Có61lS ADD 16 

1604 64F LD L,A 

16035 24350 LD H, 350 

1607 3E LD E, (HL) 
1608 23 INC HL. 

1609 36 LD D, CHL.) 
1604 ZA LD A+D 

1606 E3 Or E 

160C 2002 JR NZ,+231610 
y error “invalid stream” (serie no valida) 
160€ CF RST 08 

160F 17 DEFE: +23 

, 

1610 1€ DEC DE 

1611 244F3C LD HL., CCHANS) 
1614 19 ADD Hi. DE 

1615 22351350 LD (CURCHL) + HL 
1618 FDCE30DAG6 RES 4) (IY+YFLES2) 
1610 23 INC HL. 

161 23 INC HL. 

161E 23 INC HL. 

161F 23 INC HL. 

1620 4É LD C, (HL) 
1621 212D16 LD HL,162D 
1624 CDNCI6 CALL 16DC 

1627 D0 RET NC 

16528 1600 LD D,00 

16724 SE LO Es CHL) 
162% 19 ADD HL., DE 

1620 E9 JE CHL.) 


: tabla de desplazamiento para la instruccion OPENZ£ nombre 
y fichero 


162D 406 DEFE *K*,+06 31634 
162F 3312 DEFE 5*,+18 31642 
1631 301€ DEFE 11,427 3164D 
1633 00 DEFE 0serd 


$ open “K?” 
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1634 FDCE02C6 SET 0, CIY+YTVUFLG) 
1638 FDCE01AÉ RES 3) CIY+4YFLAGS) 
1630 FDCE30E6 SET 4, (IY+YFLOESZ2) 
1440 1804 JE +451646 d 
j open *S” 

1642 FDCE0286 RES 0, CIY+YTVFLG) 
16446 FDCE0O18E RES 1, CIY+YFLAGS) 
1644 C34D0D JE 0D4D 

$ open “F” 

164D FDCE01CE SET 1, (IY+YFLAGS) 
1651 C9 RET 

, 

1652 010100 LD EC,0001 

y hacer sitio: se necesitan BEl=bytes en 
1655 ES FUSH HL 

1656 CDOS1F CALL 1FOS 

1659 El FOF HL 

1645A CD6416 CALL 1664 

165D 26350 LD HL), (STKEND> 
1660 EE EX DE, HL 

1661 EDES LDDR 

1663 C9 RET 

y ajustar punteros 

1664 F3 FUSH AF 

1665 ES FUSH HL 

1666 214E3C L.D HL, VARS 

1669 3E0E LD As DE 

166E SE L.D Es CHL.) 

166€ 23 INC HL. 

1646D 36 L.D D, CHL.) 

166€ E3 EX HL, (SF) 

166F A7 AND ñ 

1670 EDS2 SEC HL,DE 

1672 19 ADD HL. +, DE 

1673 E3 EX HL.) (SF) 

16474 3009 JE NC,+93167F 
1676 D3 FUSH DE. 

1677 EE EX DE, HL. 

1678 09 ADD HL. EC 

1679 EE EX DE. , HL. 

167A 72 L.D CHLI),D 

167€ 2E DEC HL. 

1470 73 LD (HL, E 

167D 23 INC HL. 

167€ Dl FOF DE 

167F 23 INC Hi. 

1680 3D DEC ñ 

1681 20E8 JE NZ,-245166€ 
1683 EE EX DE > HL 

1684 D1 FOF DE. 

10485 Fl FOQF AF 

1486 A7 AND ñ 

1687 EDSZ SEC HL. +, DE 

16589 44 LD EsH 
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¿one space 
la direccion 


1684 4D LD 
168€ 03 INC 
1680 19 ADD 
168D EE EX 
168E C9 RET 
, 

148F 00 NOF 
1490 00 NOF 
1691 EE EX 
1692 118F16 LD 
1593 7E LD 
1596 E6Cc0 AND 
1498 20F7 JR 
1659A 56 LD 
1695 23 INC 
149C SE LD 
159D C9 RET 
, 

169E 2A6335C LD 
1641 2E DEC 
16A2 COSu1ló6 CALL 
16435 23 INC 
1616 23 INC 
1647 C1 FOF 
16458 ED43613C LD 
1640 C1 FOF 
1640 EE EX 
160E 23 INC 
16AF (09 RET 
gs reinicializar todas 
1660 2ZAS9SC LD 
1663 360D LD 
1663 2239É3C LD 
1669 2: INC 
1669 3680 LD 
16EER 23 INC 
10660 22615 LD 
106E6F, 2461 5€ 1.0 
1602 226350 LD 
s reinicilizar algunas de 
1605 ZA63IC LD 
16408 2265590 LD 
1606 ES FUSH 
1600 219230 L.D 
1060F 2268390 LN 
1602 El FOF 
1603 (9 RET 
, 

1604 EDNESONC LD 
16Db8 C3ES19 JE 
y subrutinma de consulta 
16D 23 INC 
16DC0 7E LD 
14D AZ AND 


laz 


DE > HL 
DE,168F 

A), (HL) 

Cc0 
NZ,-951691 
D, (HL) 

HL. 

E, (HL) 


HL.) CSTREOT) 
HL. 
1635 


EC 

(NORKSF') ¿EC 
EC 

DE, HL. 

HL. 


areas 
HL.) CELINE ) 
(HL, 0D 
(KCUR) ¿HL 
HL. 

cHL)3,80 

HL. 
(NORKSF) , HL 
HL.) CHORKSF) 
(STREOT) , HL. 


HL.) CSTKEOT) 
(STKEND) , HL 
HL. 

HL) MEMEOT 
(MEM) , HL. 

HL. 


DES, CELTINE) 
19E3 

de tablas 
HL 

As» CHL.) 

A 
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de trabajo 


las areas de 


16DÉ (8 RET Z. 


16DF E9 CF E 

16560 23 INC HL 

14E1 20F8 JR NZ,-8316DE 
14E3 37 scF 

1664 C9 RET 

y comando CLOSE £ 

14E5 CD1E17 CALL 17iE 

14E8 CDO0117 CALL 1701 

14EE 010000 LD EC,0000 
16EE 11E2A3 LD DE, ABJEZ 
16F1 EE EX DE, HL 

16F2 19 ADD HL. , DE 

16F3 3807 JR C,+7$16FC 
16F3 01D4153 LD EC), INKEY 
16F8 09 ADD HL. , EC 

16F9 4É LD C, (HL) 
16FA 23 INC HL 

16FE 46 LD Es (HL) 
16FC EE EX DE¿, HL 

16FD 71 LD (HL), C 
16FE 23 INC HL. 

146FF 70 LD (HL), E 
1700 C9 RET 

, 

1701 ES FUSH HL 

1702 244F3C LD HL, (CHANS) 
1705 09 ADD HL, EC 

1706 23 INC HL 

1707 25 INC HL. 

1708 23 INC HL. 

1709 4É .D C, (HL) 
1704 EE EX DE, HL. 

170€ 211617 LD HL,1716 
170E CDDCió CALL 14DC 

17131 4E LD Cs, (HL) 
1712 06400 LD E:,00 

1714 09 ADD HL, EC 

1715 E9 JE (HL) 

; tabla de desplazamientos para CLOSE£ 
1716 4603 DEFE 'K*,+035$171C 
1718 5303 DEFE 5',+03$171C 
171A 5001 DEFE p*,+013171C 
; Nota: en esta tabla falta el indicador de final 
, 

1710 El FOF HL. 

171D C9 RET 

) 

171E CD941E CALL 1E94 

1721 FE10 CF 10 

1723 3802 JR Cs+231727 
17235 CF RST 08 

17246 17 DEFE +23 

1727 C603 ADD 03 
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1729 07 RL.CA 


172A 21105€ LD Hl., STRMS 
172D 4F LD Cs A 

172£ 0600 LD E,00 

1730 09 ADD HL, EG 

1731 4E LD Cs, CHL) 

1732 2 INC HL. 

1733 46 LD Es, CHILL) 

1734 2E DEC HL. 

1733 C9: RET 

¡ comando UFENE 

1736 EF RST 28 

1737 01 DEFE +1 

17/38 38 DEFE: +36+fp exit 
1739 CD1E17 CALL 171E 

1730 78 LD AE 

173D El OR 2 

173€ 2816 JR Zy+2231756 
1740 EE EX DE, HL. 

1741 244F3C LD HL, <(CHANS) 
1744 09 ADD HL,EC 

17435 23, INC HL. 

1746 23 INC HL. 

1747 23 1NC HL. 

1748 7E LD As (HL. 

1749 EE EX DE, HL 

174A FE4AE CF 4E 3H” 
1740 2808 JR Z,+831756 
174E FES3 CF LEE $15” 
1750 2804 JR Z +A GATO 
1752 FESO CF 530 ¿Pp? 
1734 20CF JE NZ 49317253 
1736 CD3ID1I7 CALL 173D 

1759 73 LD (CHLOE 

1735A 2 INC HL. 

1756 72 LD cHLI DO 

1750 09 RET 

+ 

17350 ES FUSH HL. 

175€ CDF12ZE CALL 2EFI 

1761 78 LD AE 

1762 El OR C 

1743 2002 JR NZ,+231767 
1765 CF EST 08 

1764 0É DEFE +14 

1767 05 FUSH EC 

1758 14A LD A, DE) 

1769 E6DF AND DF 

1766 4F LD Es A 

17460 217417 LD HL. +1774 
176F CDDCió CALL 16D 

1772 30F1 JE NC+=1531765 
1774 4E LD Cs CHL) 

1775 0600 LD EDO 


75 


1777 09 ADD 
1778 Cl FOF 
1779 E9 JE 

¡ tabla de despl 
1774 4606 DEFE: 
1770 5308 DEFE 
177E 5004 DEFE: 
1780 00 DEFE: 
$ 212 

1781 1E01 LD 
1783 1806 JR 

2 e? 

17835 1E06 LD 
1787 1802 JR 

; 4 p.2 

17/89 1E10 LD 
178E 0E DEC 
178Cc 78 LD 
17/8Db El OR 
17/8E 20D53 JR 
1790 37 LD 
1791 El FOF 
1792 C9 RET 
jo error por detecto para 
1793 1890 JR 

) 

1795 ED733F3C LD 
1799 FD360210 LD 
179D CDAFOD CALL 
1740 FDCE02C6 SET 
1744 FD4631 LD 
1747 CD440E CALL 
1764 FDCE0286 RES 
174 FOCE3OCÓ SET 
17562 244935 LD 
17635 EDSESCIC LD 
1759 A7 AND 
17EA EDS2 SEC 
1760 19 ADD 
17ED 3822 JR 
17EF DS FUSH 
1700 CD6E19 CALL 
1703 110002 LD 
1706 EE EX 
1707 EDSZ SEC 
1709 E3 EX 
17C0A CD6E19 CALL 
170D C1 FOF 
17C0E C3 FUSH 
17CF CDES19 CALL 
1792 C1 FOF 
17D3 09 ADD 
1704 380É JR 
1706 Eb EX 


HL) EC 
EC 
CHILL.) 


azamientos para ÚPEN£ 


"K*,+0651781 
138*,+0831785 
*F*,+103$1789 
0Djernd 


E,01 
+6+178E 


Es,06 
+23178€ 


E,10 

EC 

AE 

Cc 
NZ+,-43517653 
D,A 

HL 

las comandos FURMAT 
11231725 


(LISTSF),SF 
CIY+YTVUFLG),10 
ODAF 

0), (IY+YTUFLG) 
E) (IY+YDFSZ) 
0E44 

0), C(IY+YTUFLG) 
0, (IY+YFLCOS2) 
HL.) CEFFC) 

DE) (STO) 

Á 

HL. + DE 

HL. + DE 
Cr+34517E1 


HL.) (SF) 
196É 

EC 

EC 

198 

EC 

HL, EC de 
C,+14517E4 
DE + HL. 
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me 


1707 36 
1708 2: 
1709 SE 
17DA 2E 
17DE 
17DF 
171 
17E4 
17E7 
17EA 2801 
17EC EE 

17E0D 
17F0 
17F4 C9 

¿ comando 
17F35 3E03 
17F7 1802 
¿ comanda 
17F9 3E02 
17FE 
17FF 
1802 
1803 DF 
1806 
1809 
180E DF 
180€ 
1890E 2 
1810 FEZC 
1812 2006 
1814 E7 

18153 
1818 
181A 
181D 1 


18EDb 


1808 


181F CDDE1 


EDS36CUC 


2260350 
2A6035C 
CD64E. 19 


Cco3318 
FDCE0ZA6 


LLIST 


LIST 


FD360200 
CcD30253 
c401164 


CO821C 


CDE61C 


1822 CDEEÍE 


1823 
1828 78 
1929 E 
182 67 
1820 49 
132D 
1830 
1833 
1833 
1838 D7Z 
1839 
1830 
183F 
1842 
1843 20EÉ 
1847 AE 

1848 (8 


1801 


28F6 


yE 


22493 


(D6E19 
cD0318 
FDCE0266 


3A6E5C 
FD964F 


D, CHL.) 

Hi. 

Es (HL) 

HL. 

(STOF) ¿DE 
-19$17CE 
(STOF) , HL. 
HL) (STOF) 
196É 
Zy+1517ED 
DE), HL 
1833 

4, (IY+YTUFLG) 


A,03 ¿printer 
+2317FE 
A,02 ¿screen 


(IY+YTUFLG),00 

2330 ¿immediate? 
NZ,SELDEV$if so,selecto. 
18 ¿check if new 
2070 ¿device read. 
C,+20;181F 

18 

38 ¿semicolon 
Z,+431814 

2C $Comma 
NZ,+63181A 

20 

1082 

+8$11822 

1CES 

+3$1822 

1CDE 

1EEE 


-? 
CEFFC), HL 
196E3fird prog line 
E,01 

18303 

10 

4, CIY+YTVUFLG) 
Z,-1031835 

As, (DFSZ) 
(IY+YSFOSN+1) 
NZ,-1851835 

E 


Z 
77 


1849 EN 
1844 D3 
184E 2106030 
184E CD(4F19 
1831 D1 
1852 El 
1853 
1855 ED4E493C 
1859 CD8019 
1850 163É 
185É 2805 
1860 110000 
1863 CE13 
1865 FD732D 
18648 7E 

1869 FE40 
1i86E6 C1 

186€ DO 

186b C5 

y convertir e 
186É£ CD281A 
1871 23 

1872 23 

1973 23 

1874 FDCE0186 
1878 7A 

1879 AZ 

1874 2805 
18970 D7 

187D FDCE0iC4 
1881 D5 

1902 EE 

1883 FDCE3096 
1887 213E5€C 
188% CE96 
1880 FDCE376E 
18920 2802 
1892 CED6 
1894 RASF3GC 
1897 A7 

1898 EDSZ 
1894 20053 
18790 3E3F 
189E CPCc118 
1841 CDE118 
1344 EE 

1843 7E 

1846 CDE4619 
1849 23 

1844 FEO0OD 
1840 2806 
18AE EE 

1894F CD3719 
1862 18€0 


FUSH Hi. 
FUSH DE 
LD HL¿STOF 
CALL 190F 
FOR DE 
FOF HL. 
JR -32$1835 
LD EC), CEFFC) 
CAL.L 1980 
LD D,3E 
JR Z,+53$1865 
LD DE,0000 
KL E 
LD (IY+YEREG)>,E 
LD A), (HL) 
CF 40 
FOF EC 
RET NC 
FUSH EC 
imprimir numero de linea 
CALL 1428 
INC HL 
INC HL 
INC HL 
RES 0D, CIY+YFLAGS) 
LD As+D 
AND Á 
JR Z,+53+$1881 
RST 10 
SET D, CIY+YFLACGS) 
FUSH DE 
EX DE, HL 
RES 2) LIVY+AYFLGS2) 
LD HL) FLAGS 
KES 2+ CHL) 
EIT Ss, CIY+YFLAGX) 
JR Z,+231894 
SET 2 CHL) 
LD HL.) (XETR) 
AND Á 
SEC HL, DE 
JE NZ>s+35518A1 
LD A, 3F 
CALL 1801 
CÁLL 18EÉ1 
EX DE, HL 
LD As, CHL.) 
CALL 18565 
INC HL. 
CF 00 
US Z+6318E4 
EX DE, HL. 
CÁLL 1937 
JR “3211894 
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El 
FD7437 


30 
FDOCESOSE 


Ús 2802 


3£43 
DS 
coc118 
Di 


DE 


0E 
NZ 
HL 
HL. 
HL. 
HL. 
HL 
HL. 
As CHI) 


HL., CATTRT) 
HL 

7H 

7+L 
CATTRT), HL 
HL,+,FFLAG 
D, (HL) 

DE 

(HL>,00 
FRINT 

HL 


(IY+YFFLAG),H 


HL. 
CATTRT), HL 


HL), (KCUR) 
Á 

HL, DE 

NZ 

A, (MODE) 
A 
Z+43+18F3 
43 
+22;+1909 
HL.) FLAGS 
3, (HL) 

A, 4E 

2y CHL) 
Zy+1131909 
39 CHL.) 

ñ 


3) CIY+YFLGS2) 


21+251909 
As, 43 
DE 
18(1 
DE 
79 


190E (9 RET 


+ 


? 

190F SE LD Es (HL) 

1910 23 INC HI. 

1911 36 LD D, (HL) 

1912 ES FUSH HL. 

1913 El EX DE > HL. 

1914 23 INC HL. 

1915 CD6E19 CáLL 196É 

1918 CD9516 CALL 1693 

1916 El FOF HL 

1910 FDCE376É ETT Ss, CIY+4YFLAGX) 
1920 C0 RET NZ 

1921 72 LD CHL2>),D 

1922 2E DEC HL 

1923 73 LD (HLI,E 

1924 C9 RET 

, 

1923 7E LD AE 

1926 A7 AND A 

1927 F8 RET = 

1928 180D JR +1331937 

y contar el numero de veces que se transfiere El 
192A AF XOR Á 

192E 09 ADD HL, EC 

1920 3C INC Á 

192D 38FC JR C,-43192E 
192F ED42 SEC HL, EC 

1931 3D DEC Á 

1932 28F1 JR Z, 15931925 
1934 C3IEFIS JE 135ÉF 

, 

1937 CD1E2D CALL 2¿D1E 

1934 3030 JR NC), +4831946C 
1930 FEZ1 CF 21 

193É 382 JR C,+445196C 
1940 FDCE0196 RES 27 CIY+YFLACS) 
1944 FECE CcF CE 

1946 2824 JE Z,+3611960 
1948 FE3A CF 3A 

1944 200E JR NZ,+1431954A 
1940 FDCE376E EIT Sy CIY+4YFLAGX) 
1950 2016 JR NZ,+22:$1968 
1932 FDCE3034 ETT 2) (IY+YFLOGSZ2) 
1956 2814 JR Zy+2031960 
19358 180É JR +14;31968 

195% FEZ2 CF 22 

19350 ZO0Á JE NZ,+1031968 
190 F3 FUSH AF 

195F 3AGÁASC LD As (FLAGSZ) 
1962 EE0O4 XOR 04 

1964 32R6ÁTC LD (FLAGSZI¿ A 
1967 Fi FOF AF 

1968 FDCE0DIDÓ SET 2 CIY+YFLAGS) 
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196€ D7 RST 
194D C9 RET 
y buscar en el programa 
s de registros EL 
196E ES FUSH 
196F 2A533C LD 
1972 54 LD 
1973 3D LD 
1974 C1 FOF 
1975 CDS019 CALL 
1978 DO RET 
1979 C5 FUSH 
197A CDES19 CALL 
197D EE EX 
197E 18F4 JR 

,) 

1980 7E LD 
1981 Es CF 
1982 C0 RET 
1983 23 INC 
1984 7E LD 
1985 2E DEC 
1986 E9 cF 
1987 C9 RET 
, 

1988 23 INC 
1989 23 INC 
198A 23 INC 
198€ 225D35C L.D 
198E 0E00 LD 
1990 15 DEC 
1991 C8 RET 
1992 E7 RST 
1993 EE CF 
1994 2004 JR 
1996 ñÁ? AND 
1997 (9 RET 
, 

1998 23 INC 
1999 7E LD 
1994 CDE4618 CALL 
199D 225D3C LD 
1940 FE22 CF 
1942 2001 E 
1944 0D DEC 
1945 FEA Cr 
1947 2804 JE 
12459 FECE CF 
194 2004 JE 
19AD CE41 EXT 
19AF 28DF JE 
1961 FEOD CF 
1963 20E3 JR 
1965 15 DEC 


10 


el numero de linea contenido en el 


HL. 

HL.) (FROG) 
Ds e 

EsL 

EC 

1980 
NCjwnen == or = 
EC 

19E8 

DE, HL 
“1231974 


(CHADD) , HL 
2,00 
D 


Z 

20 

E 
NZ,+451994A 
ñ 


HL. 

As, (HL) 
18:54 
(CHADD? , HL 
22 


NZ,+13194A3 
| 


3A ¿colon 
Zy+4519AD 

CE 3 THEN 
NZ,+45$19E1 

0, 
Z+-3331990 

CR 


NZ,-29$1998 
D 
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1956 


37 


19E7 (9 

g calcular 
y etc) 

¡ ¿Hid=direccion del elemento. salida con (DE>=siquiente 
s elemento 


1968 
199 
194 
19EC 
19€6É 
1900 
1902 
1903 
19C6 
1907 
19CA 
19ccC 
19CE 
19CF 
19D0 
19D1 
19D3 
19D5 
19D6 
19D7 
19D8 
19D9 
19DA 
19DE 
19DC 
19DD 
19DEÉ 
19E0 
191 
192 
19E3 
19E4 


) 

19E3 
198 
19E9 
19EA 
19EE 
19EC 
19ED 
EE 
19EF 
19F0 
19F3 
19F4 
19F3 
19F6 
19F7 


ES 


EDSZ 


cD6416 
EE 

El 

19 

Do 
EDEO 


SCF 
RET 
longitud del 


FUSH 


LDIR 


elemento (variable, linea de programa, 


HL. 

As CHI) 

40 
Cs+23$19D3 
JA 
Zy+203+19D6 
Á 

M,19C7 


EC+00035 
NC,+23$19CE 
c,12 


HL. 

A, (HL) 
NC>»-35$19CE 
+65$19DE 
HL 

HL 

C, (HL) 
HL 

Ey (HL) 
HL 

HL, EC 
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19F9 El EOP HL. 

19FA (9 RET 

y obtener el primer caracter de la linea de edicion £numera de 
y linea?) 


19FE 2A595C LD HL) CELINE > 
19FE -2E DEC HL 

19FF 225DSC 1.D (CHADD) ¿HL 
1402 E7 RST 20 

1403 219230 LD HL.) MEMEIOT 
1406 2263350 L.D (STREND) , HL 
1409 CDIEZD Cód. Lo 2D3E 

140C CDAZZD CALL ¿DAZ 

140F 3804 E Cs+4314M153 
1811 21F0D8 LD HL.,D8F 0 
1414 09 ADD HL+ EC 

1413 DASñ1C JE C,+1C8A 
1418 C3Ccsló6 JE 1605 

¿ rutina de impresion de lineas 
1416 DS FUSH DE 

1A1C ES FUSH HL 

141D AF XOR Á 

141E CE78 EXT 74+É 

1420 2020 JR NZ),+3231A42 
1422 60 LD H,E 

1423 69 LD L,C 

1424 1EFF LD E,FF 

1426 1808 JR +8;+1A30 

¡y (HL3=valor a imprimir S 
1428 D3 FUSH DE 

1429 36 LD D, CHL) 
1A2A 23 INC HL 

1AZ2E SE LD Es (HL) 
142C ES FUSH HL 

142D EE EX DE, HL 

1AZ2E 1E20 L.D E,20 

j Hi=valor de lá bits que debe ¡imprimirse 
1430 0118FC LD EC),FC18 
1433 CDZ2A19 CALL 192 

1436 019CFF LD EC+FF9C 
1439 CD2A19 CALL 1924 

1A3C 0EFó LD C,F6 

1JA3E CD2A19 CALL 192A 

1441 7D LD AsL 

1442 CDEF1S CALL 135EF 

1443 El FOF HL. 

1446 D1 FOF DE 

1447 C9 RET 


¡ DATOS (se omite la codificacion) ver 1E%% 
; tabla de desplazamientos para comandos (desplazamiento 


y propio) 
1448 EINCEECEF ¿DEF-FN CAT FORMAT MOVE . 
14640 C04AFE493 ¿ERASE OPENZ£ CLOSEL£ MERGE 


1450 91929598 ¿VERIFY EEÉEF CIRCLE LINK 
1454 98789898 ¿FAÁFER FLASH ERIÍGHT INVERSE 
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98987F81 
Z2E6C6E7O 
4894363F 
4128171F 
3777440F 
S925432D 
51346D42 
00493044 
153D 


¿OVER 
¿STOF 


OUT 


LPRINT LLIST 


READ DATA RESTORE 


¿NEW EORDER CONTINUE DIM 
¿REM FOR GOTO GOSUE 
SINFUT LOAD LIST LET 
SFAUSE NEXT FOKE FRINT 


¿FLOT RUN 
31F 


SAVE. RANDOMIZE 


CLS DRAN CLEAR 


¿RETURN COFY 


tabla sintactica de 


013D02 
06400671 
06CE0S 
F01C0 
0600ED1E 
00ÉÉ1C 
00231F 
043D06CC 
0603031D 
04004E1D 
05CD1F 
058920 


050220 


05SEZ21É 
006711 


: 03A11E 


05F917 
0800801E 


y 034F1E 


0D05F1E 


: 03ACIÍE 


006E60D 
0900DC22 
06003A1F 
05ED1D 
035271E 
03421E 
09038223 
D0ACOE 
03C91F 
05F317 
0E 

DE 

0E 

0É 
0800F803 
09032023 


los comandos 
desplazamiento de comando de la tabla anterior 


; LET 
3167 GOTO 
s1CF0 IF 
SIEEDO GOSUE 
SICEE STOP 
$1F23 RETURN 
$1D03 FOR 
SIDAE NEXT 
S1FCD  FRINT 
32089 — INFUT 
$2002 DIM 
SIEEZ REM 
$117 — NEN 
SIEA1 O RUN 
$17F9 LIST 
351880  FOKE 
$1E4F  RANDOMIZE 
SIESF CONTINUE 
SIEAC CLEAR 
3$0D6E  CLS 
$22D0C  FLOT 
sIFZGA — FAUSE 
S1DED READ 
$1E27 DATA 
$142 — RESTORE 
312382  DRAN 
SOEAC COFY 
$1FC9 — LERINT 
$17F5  LLIST 

; SAVE 

; L.OAD 

3 VERIFY 
; MERGE 
$03F8  EEEF 
$2320 CIRCLE 
; INK 

; FAPER 

; FLASH 

; ERIGHT 
; INVERSE 
; OVER 
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esta indexada mediante 


14F1 08007A1E ¿LEZA GLI 

LAFS 06009422 12294 EORDER 

14F9 05601F $1F60 DEF EN 

14FC 06200400 11736 OFEN£ 

1600 3617 

1602 0600E316 116É53 CLOSEZ 

1606 04009317 11793 FORMAT 

18504 04200400 11793 MOVE 

1E0€ 9317 

1610 04009317 31793 ERÁSE 

16514 009317 11793 CAT 

; se reanuda la codificacion 

; INTERPRETE 

y realiza comprobaciones sintacticas y controla 
js la ejecucion del programa 

1617 FDOCEOJEE RES 7 (IY+YFLAGS) 
1616 CDFE1I9 CfñL.L. 19FE 

1E61E AF XOR ñ 

1E81F 324730 LD (SUEFECIAA 
1622 3D DEC ñ 

1623 323450 LD CERRNRI¿A 
1626 1801 JE +1:31E29 
1628 E7 RST 20 

1629 CDEFI1Ió CALL 16EF 

1620 FD340D INC (TY+YSUEFC) 
1E2F FASA1IC JE M+1C8A 

1632 DF RST 18 

1€£33 0600 LD E,00 

1535 FE0D CF CR 

1837 287A JR Z¿+122318E3 
1639 FE3A CP 3A ¿colon 
1E3E 28EE JR 2213162 
1E3D 21761€ LD HL+1E76 
1640 ES FUSH HL 

1641 4F LD C+A 

1842 E7 RST 20 

1643 79 LD A,C 

1644 DóCE SUE: CE 

1846 DABA1C JE C,1C8A 

1549 4F LD Cs A 

164A 214814 LD HL,144830ffset table 
15:4D 09 ADD HL., EC 

154E 4E LD C, (HL) ¿sgrtax table entry 
164F 09 ADD HL, EC 

1650 1803 JE +3$1855 
1652 2474350 LD HL), (TADDR> 
18535 7E L.D As CHL) 

1856 23 INC HL. 

16857 2274350 1.D (TADDR) , HL. 
1ESA 013Z1E L.D EC+1ES2 
1E63D C5 FUSH EC 

1EGE 4F L.D CA 

1ESF FEZ0 CF 20 

1661 300€ ER NC>,+1231E46F 
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1663 210110 LD HL. 1001 


1666 06400 42 E:,00 

1848 092 ADD HL) EC 

1669 4E LD Cs, CHL) 

1E64 02 ADD HL, EC 

146 ES FUSH HL. 

1660 DE RST 18 

166b 05 DEC E 

1E6É 09 RET 

, 

166F DE RST 18 

1670 E9 CF C 

1671 C28A1C JE NZ,1C8A 
1874 E7 EST 20 

1E73 19 RET 

, 

1676 CDS41F CALL. EREAR 

1879 3802 ES C++2+1E7D 
1E7E CF RST 08 

1E7C 14 DEFE +20s$break 

, 

1E7D FDCEDA7ZE EXIT 7 y CIY+YNSFFC) 
1681 2071 JR NZ,+113531EF4 
1683 244250 L.D HL), CNENFFC) 
1€86 CE7C EXIT 7H 

1888 2814 JR Zy+2051E9E 
1€68A 21FEFF LD HL,FFFE 
1€68D 22435C LD (FFC)¿ HL 
1690 24615 LD HL), (WORKSF > 
1693 2E DEC HL. 

1694 EDSES9OSC LD DE), (ELINE> 
1598 1€ DEC DE 

1699 344430 LD As (NSFFC) 
1690 1833 JR +5131ED1 
1€9E CD6E19 CALL 196É 

1E6A1 344430 LD Ay (NSFFC) 
1844 2819 JR Z +23 1EEF 
156 A7 AND Á 

1EA7 2043 JR NZ,+67 3 16EC 
1EA9 47 L.D EJÁ 

1EAA 7E LD As» (HL) 

1EAE ESC0 AND CO 

1EAD 78 LD AyE 

1EAE 280F JR Z ¿+15 1EEF 
1660 CF EST 08 

1661 FF DEFE: +233950b, 

, comando REM 

162 C1 FOF ECsdiscard 
, 

1£E3 CD3023 CALL 2330 

1E6k6 C8 RET Z. 

1EE7 24355950 1D HL.) (NXTLIN) 
1EEA 3EC0 L.D As, CO 

1E6EC A6 AND (HL) 
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18D C0 RET NZ 


JEBE AF XOR ñ 

,) 

JEEF FEO1 CF 01 

1601 CE0OO0 ADC 00 

1803 56 LD D,CHL.) 

1804 23 INC HL. 

1605 SE LD Es CH) 

1ECó6 EDS34350 LD (PEC),DE 
1ECA 23 INC Hi. 

1ECE SE LD Es HL.) 

1ECC 23 INC HL. 

1ECD 36 LD Ds, CHL) 

1ECE EE EX DE + HL. 

1ECE 19 ADD HL, DE 

16D0 23 INC HI 

+ 

16D1 225395 LD <(NXTLIN) ¿HL 
1604 EE EX DE, HL. 

1805 225D5C LD (CHADD) ¿HL 
1608 37 LD D,A 

1£D9 1E00 LD E,00 

1EDE FD360AFF LD CIY+YNSFECI),+FF 
1EDF 15 DEC D 

165£0 FD720D LD (IY+YSUEFC),D 
1RE3 CAZ81E JE 2,1528 

1EE6 14 INC D 

167 CD8E19 CALL 198E 

¡EEA 2808 JR Z,+831EF4 
1EEC CF RST 08 

1€6ED 16 DEFE: +2235tt lost 
, 

1EEE CD3023 CALL 2330 

16Fi CO RET NZ 

1EF2 Cl FOF EC 

1E6F3 C1 FOF EC 

1EF4 DF RST 19 

1EFS FEOD CF CR 

16F7 2854 JR Z,-70318E3 
1EF9 FE3A CF 3A ¿color 
¡EFE CA281ÉE JE Z,1£28 

1EFE C38A1C JE 1C8A 


y tabla de consulta de la clase del comando 
1001 0F-3+00 1C10 
1002 1D ;+01 1C1F 
1003 4E 3+02 104E 
1004 09 3+03 1C0D 
1005 67 3+04 1C6C 
1006 0E 3+05 1C11 
1007 7E ¿+06 1082 
1008 8E 3+07 1096 
1009 71 5+08 1C7A 
1C0A E4 53+09 1CEE 
1006 81 $+10 1C8C 
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1000 CF $+11 1CDÉE 
y clase +02 


100 CDDE1C CALL 1CDE 

s Clase +00 

1010 EF CF ñ 

go clase +05 

10141 C1 FOF EC 

1012 CCEE1ÍE CALL Z+1EEE 

1015 ER EX DE, HL 

, 

1016 24745 LD HL) CTADDR) 
1019 4E LD 2, CEL.) 

íC1A 23 INC HL 

1C1E 46 LD Es CHLO 

1010 EE EX DE), HL 

1C1D CS FUSH EC 

101E (92 RET 

s Clase +01 

1C1F CDEZ228 CALL 2962 

1022 FD363700 LD (IY+YFLAGX),00 
1026 3008 JE NC>,+81C030 
1028 FDCE37CE SET 1), (IY+YFLAGX) 
1020 2018 JR NZ)+24$1C046 
10Z2E CF KST 08 

1C02F 01 DEFE +1ivariable not found 
1030 CC9629 CALL 212996 

1033 FDCE0176 EJT 6), (IY+YFLACS) 
1037 200D JR NZ,+1331C46 
1039 AF XOR Á 

1C3A CD3025 CALL 25330 

1C3D C4F12E CALL NZ,2EF1 
1040 217150 LD HL) FLAGX 
1043 E6 OR (HL) 

1044 77 LD (HLI),A 

1045 EE EX DE, HL 

1046 ED437250 LD (STRLEN),EC 
104A 224D3C LD (DEST) ,HL 
104D C9 RET 

z Clase +02 

104E Cl FOF EC 

104F CDS6icC CALL 1056 

1052 CDEEÍE CALL 1E6EE 

1055 C9 RET 

, 

10546 3A3E3SC LD A) (FLAGS) 
1059 FS FUSH AF 

1054 CDFEZ24 CALL Z4FE 

105D Fl FOF AF 

1C5E FDS601 LD D, (IY+YFLACS) 
iCól AÁ XOR 0 

1062 ES40 AND 40 

1064 2024 JR NZ,+3631C8A 
1066 CEZA EXT 7D 

1068 C2FF2A JE NZ,2AFF 
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1C04E C9 RET 
y Clase +04 


1040 CDEZ228 CALL ¿BEZ 

1C6F FS FUSH AF 

1070 79 LD AL 

1071 F69F OR 9r 

1073 3C INC ñ 

1074 2014 dE NZ,+2031C84A 
1076 Fl FOF AF 

1077 1849 JR -8731022 

1079 EZ RST 20 

clase +08 

1074 CO8BZ21C CALL 1082 

107D FE2C CF ya 

1C07F 2009 ES NZ,+93$1C8A 
1091 E7 RST 20 

j Clase +06 

1092 CDFEZA CALL 24FE 

10835 FDCE01I76 EIT 6 CIY+YFLAGS) 
1089 C0 RET NZ 

=> error “nonsense in Basic” ísin sentido en 
1C8A CF RST 08 

1C8E 0 DEFE +11 

y clase +10 

1080 CDFEZ24 CALL. ZaFE 

1C8F FDCE0176 EXT 6+ (IY+YFLAGS) 
1C93 C8 RET Z 

1C94 18F4 JR -1231084A 

y Clase +07 

1096 FDCE017E EXIT 7 CIY+YFLAGS) 
109A FDCE0286 RES 0, (IY+YTUFLG) 
1C9E C44D0D CALL NZ,0D4D 

iCAi Fi FOF AF 

1CA2 34745C LD A, (TADDR) 
1CAS D613 SUE 13 

1CA7 CDFCZ21 CALL 21FC 

1CAA CDEE1E CALL 1EEE 

iCAD Z2ABFSC LD HL) CATTRT) 
1CE0 228D35C LD CATTRE> , HL 
1CE3 21913€ LD HL,FFLAG 
1CE6 7E LD A), (HL) 

1CE7 07 RLCA 

1CE8 AE XOR (HL) 

1CE9 ESAÁ AND AÁ 

1CEE AE XOR CHILL) 

1CEC 77 LD (HL A 

1CED C9 RET 

y Clase +07 

1CEE CD30253 CALL 2330 

10C1 2813 JR Z,+1931CD6 
10C3 FDCE0286 RES 0, CIY+YTVUFLG) 
1007 CD4D0D CALL. 0D4D 

iCCA 219035 L.D HL), MASKT 

1CCD 7E LO As CHL) 
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1CCE F6FS OR 
1C0D0 77 LD 
10D1 FDCES7ZES RES 
1C0D3W DF REST 
1006 CDEZZ1 CALL 
1009 189F JE 
1CDE C30306 JE 

¿ Clase OUR gestian de 
1CDE FE0OD CF 
1CE0 2304 JR 
1CEZ FEA CP 
10E4 2098 JE 
1CE£6 CD3023 CALL 
10E9 08 RET 
1CEA EF RST 
1CEE A0 DEFE 
1CEC 38 DEFE 
1CED (9 RET 
; comando STOP 
1CEE CF RST 
1CEF 08 DEFE 
A comanda 
1C0F0 C1 FOFP 
10F1 CD30253 CALL 
1CF4 2804 JR 
1CF6 EF RST 
1CF7 02 DEFE 
1CF8 38 DEFE 
1CF9 EE EX 
1CFA CDE934 CALL 
1CFD DAE3IE JE 
1D00 C3291E JE 

; comando FOR 
1D03 FECD CP 
1D03 2009 JR 
1D07 E7 RST 
1iD08 CD821C CALL 
1DO0OE CDEE1E CALL 
10D0E 1806 JR 
1D10 CDEE1E CALL 
1013 EF RST 
1D14 Ali DEFE: 
1D15 38 DEFE 
1D16 EF RST 
1D17 C0 DEFE 
1018 02 DEFE: 
1D19 01 DEFE 
1D1A E0 DEFE: 
101€ 01 DEFE 
1D1C 38 DEFE 
1D10 CDFFZA CALL 
1020 226830 LD 
1023 2E DEC 
1024 7E LD 


la 


FE 

(HL, A 
6, CIY+YEFLAG) 
13 

2162 
-97+107A 
0603 

cimta 
CR 

Zy+431CE6 

3% 
NZ,-10051C82 
¿30 

Z 

28 

+160 

+06jfp exit 


08 
+8 


EC 

2330 
Z,¿+105$1D00 
28 
+2ídelete 
+5063fp exit 
DE. + HL 

34E9 

C+,18ÉE3 

1629 


CD 
NZ,+9;1D10 


+161 

+363fp exit 
28 
+1923store 0 
+2idelete 
+líexcha 
+224iqet 0 
+ijexcha 
+363ifp exit 
ZAFE 
(MEM), HL 

HL. 

As, CHL) 
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1023 
1027 
1DZA 
102 


1020 - 


1D2É 
1030 
1033 
10:34 
1D35 
1034 
1037 
10389 
1039 
1D3A 
103 
1D3D 
1035 
1D42 
1D43 
1044 
1D43 
10446 
1D49 
1D4A 
1D4É 
1D4C 
1D4F 
1050 
1053 
1056 
1059 
1D35C 
1D5É 
iDSF 
1D62 
1044 
1D65 
1D69 
1D6C 
1D70 
1D71 
1D73 
1D74 
1D76 
1D77 
1D79 
1iD7A 


CEFE 
010600 
09 - 


00D 
CoOSsió 
23 

ES » 
EF 

02 

02 

38 

El 

EE 
DEA 
EDEO 


2A4SSC 


23 
72 
CODDAID 


2A439390 
2242350 
344732 
ED44 

97 
ZASDSC 
1EFS 

Cu 
EDIESISC 
CcD861D 
ED43353550 


7 CHL 
EC+0006 
HL¿,EC 


Cs+631D34 
Cs 0D 

16503 

HL. 

HL. 

¿8 
+2jadelete 
+2idelete 
+363fp exit 
HI. 

DE+ ML 
Cs,0% 


HL, CREO) 

DE, HL. 

CHLOE 

HL. 

(HL), D 

Dy CIY+YSUEFC) 
D 

HL. 

(HL ¿D 

1DDA 

NC 

Es CIY+4YSTRELN) 
HL) <PFC) 
(NENFFCI ¿HL 
A, CSUEFFC) 


D,A 

HL, (CHADD) 
E, F3 

EC 

EC) (NXTLIN) 
1086 
(NXTLIN),EC 
EC 
C,+1731D84 
20 

20 

E 

Z,+331D70 
20 

-2431D64 

20 

A, 01 

D 

(NSPFC) ¿A 
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1084 
183 
1D86 
1D87 
1089 
1089 
1D8C 
1D8D 


1DSF : 


1090 
1091 
1092 
1093 
1094 
1098 
1099 
1D94A 
1D9E 
109€ 
1090 
109EÉ 
1D2F 
-1DA0 
1DA1 
1D43 
1DAa4 
1D47 
1D48 
1DA9 


y 
1DAE 
1DAF 
1DE2 
1DE3 
1DE7 
1DE:9 
DEA 
1DED 
1DEE 
1DEF 
1DC00 
1DCi 
1DC2 
1003 
1004 
1DC7 
1008 
1DCE 
1DCE 
iDCF 
1DD0 
1DD1 
1DD2 
1DD3 


CF RST 
11 DEFE 
7E LD 
FE3SA CF 
2818 JR 
23 INC 
7E LD 
ESCO AND 
37 SF 
0 RET 
44 LD 

2 INC 
E LD 
ED43425C LD 
23 INC 
4 LD 
23 INC 
44 LD 
ES FUSH 
09 ADD 
44 LD 
40 LD 
Ed FOF 
16400 LD 
cs FUSH 
CD8E19 CALL 
cl FOF 
DO RET 
18E0 JR 
comando NEXT 
FDCE374E ETT 
c22E1C JF 
Z¿A4DSC LD 
CE7ZE EIT 
2¿81F JR 
23 INC 
2246835€ LD 
EF RST 
E0 DEFE 
EZ DEFE: 
0F DEFE 
co DEFE 
02 DEFE: 
38 DEFE 
CDDAÍD CALL 
D8 RET 
ZA683C LD 
110F00 1.D 
19 ADD 
SE LD 
23 INC 
536 LD 
23 INC 
66 LD 


08 

+17 

£3, CHL) 

3Añ 
Z¿+2431DA3 
HL. 

As (HL) 

CO 


NZ 

Es CHL) 
HL 

Cs, CHL) 
(NENFFC)¿ EC 
HL 

Cy, CHL.) 
HL 

E, CHL) 
HL. 

HL. y EC 
Ey H 

CsL 

HL 

D,00 

EC 

198E 

EC 

NC 
-3231D8E 


1, CIY+YELAGX) 
NZ,1C2E 

HL., (DEST) 
7, (HL) 
Zy+3131DD89 
HL 

(MEM) , HL 
28 
+224$9et 0 
+226j0et 2 
+139$3dd 
+192Z2istore 0 
+2ídelete 
+563fp exit 
1DDA 

2 

HL.) (MEM) 
DE,000F 

HL), DE 

Es (HL) 

HL. 

D, CHL 

HL. 

H, CHL) 
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1DD4 EE EX DE, HL 


10D5 C3731E JE 1E73 

) 

iDD8 CF KST 08 

10D9 00 DEFE +0$NEXT without FOR 
, 

10DA EF EST 28 

100E El DEFE +225;0et 1 
1DDC E0 DEFE +224;q6t 0 
1DDD EZ DEFE +22ó6j30et 2 
1DDE 36 DEFE +54j2%0 
1DDF 00 DEFE +07j true 
1DE0 02 DEFE +2 

1DE1 01 DEFE +1iexcha 
1DE2 03 DEFE +3 3subtract 
1DE3 37 DEFE +55j30 
1DE4 0 DEFE +05 true 
1DES 04 DEFE +4 ] 

1DEG6 38 DEFE +56jfTp exit 
1DE7 A? AND Ajexit with NC 
1DE8 C9 RET 

solista de funciones 

1DE9 38 DEFE +56;fp exit 
1DEA 37 SOF exit with € 
1DEE 09 RET 

, 

1DEC E7 RST 20 

E comando READ 

1DED CDiFiC CALL 1C1F 

1DF0O CD3025 CALL 2330 

1DF3 2829 JR Z)+4131£1É 
1DF3 DF KST 18 

10F6 2235F5C LD (XFTR) , HL 
1D0F9 2A9735C LD HL, DATADD) 
1DFC 7E LD A, HL) 

1DFD FE2C Cr ¿C 

1DFF 2809 JR Z¿+9S1E0A 
1E01 1EE4 LD E,E4 

1£03 CD861Db CALL 1086 

1£04 3002 JR NC,+231E0A 
1£08 CF RST 08 

1£09 0D DEFE: +i3fout of DATA 
, 

1¡E0A CD7700 CALL 0077 

1E0D CDS61C CALL 1056 

1E10 DF EST 18 

1£11 2235735C LD (DATADD) , HL 
1£E14 2A59F3C LD HL) (XFTR) 
1£17 FD362600 LD (IY+YXFTR+1>3,00 
1£1€E CD7800 CALL 0078 

1£1E DF KSsT 18 

1E1F FEZC CF 2C 

121 2809 JR Z+-55$1DEC 
1€23 CDEE1ÍE CALL 1EEE 
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1E26 C9 RET 
a comando DATA 
1E27 CD3023 CALL 
1EZA 200€ JR 
1E20 CDFEZA CALL 
1E2F FEZC CE 
1E31 C4EE1E CALL 
1E34 E RST 
1E35 18F3 JR 

, 

1E37 3EE4 L.D 
1E39 47 L.D 
1E34 EDE?2 CFDR 
1€30 110002 L.D 
1£3F C38E19 US 

: comando RESTURE 
1E42 CD9YI1E CALL 
1843 60 1.0 
1546 69 1.0 
1£47 CNé6E19 CáL.L 
1E%A 2E DEC 
1E4E 220/30 1.0 
1E4E (92 RET 
: comanda RANDOMIZE 
1E4F CD991E CALL 
1E392 78 L.D 
1E53 El OR 
1E54 2004 JR 
156 ED4E7830 LD 
1ES5A ED43763€ LD 
1E5E C9 RET 
p comando CONTINUE 
1E5SF 2A6E3C LD 
1E62 FDS636 LD 
1£65 180€ JR 

; comando 60 TO 
1£67 CD991E CALL 
1E6A 60 LD 
1E4E 69 L.D 
1E6C 1600 L.D 
1E6E 7C€C LD 
1E6F FEFO CF 
1E71 3P2C JR 
1E73 2242350 LD 
1E76 FD7204A LD 
1E79 (9 RET 
F comando UT 
1E7A CD831EÉ CALL 
1E7D ED79. OUT 
1E7F C9 RET 

; comando POKE 
1E80 CDO8uiE CALL 
1£83 02 LD 
1884 C9 RET 


2530 
NZ,+1131E37 
24FE 


2C 
NZ,1EEE 
20 


-1131E20 


Ar ES 
ESA 


DE,0200 
198 


1E99 

Ha E 

L,E 

196É 

HL. 

(DATADD> ¿HL 


1E99 
Ay E 
E 
NZ ¿+45 1EGA 
EC) (FRAMES) 
(SEED),EC 


HL.) COLDFFC> 
Ds CIY+YOSFCCI 
+1231E73 


1E99 

H¿E 

L,C 

D,00 

AsH 

FO 
NC,+4931E9F 
(NENFFC) ¿HL 
(IY+YNSFFC)¿,D 


18835 
(CI) A 


183 
(ECIIA 


94 


, 

1885 
1588 
1E8SA 
1E8C 
1E8EÉ 
1E8F 
1E92 
1E93 


, 

194 
197 
1£99 


1E98 < 


1E9EÉ 
1E9F 
1E450 
1E41 
1E44 
147 
JE 


, 

1EAC 
1EAF 
1EE0 
1Ef1 
13 
1EE7 
1£E8 
1£EC 
1EEF 
1EC0 
1EC3 
1ECó6 
1EC9 
1ECC 
1£CD 
1ECE 
1ED0 
1ED2 
1ED5 
1ED6 
1£D8 
1EDA 
1EDE 
1EDC 
1EDD 
1£E0 
1E£1 
1EEZ 
1EE4 
1EE3 
1EE6 


CDDIZD 


CDDSZD 
1803 
CDAZZD 


CDO71E 
010000 
CD431EÉ 
1803 
comando 
CcD991E 
78 
El 
2004 
EDIAEEZIC 
co 
EDSE4AESC 
24359350 
ZE 
CDES19 
CD6E:0D 
2A65330 
113200 


c1 
363É 
2E 
FS 


CS 


2DD5 
C,+2151E9F 
Z,+231E8E 


AF 
1E99 
AF 


20D5 
+331E9C 
2DA2 
C,+131E9F 
Z 

08 

+10 
1£67 
EC+0000 
145 
+33 1EAF 


1E99 
AE 
C 
NZ +43 1ÉEÉE7 
EC), CRAMTOF) 
EC 

DE», (VARS) 
HL), CELIÍNE > 
HL 

19E5 

0D6E 

HL) (STKEND> 


NC), +831EDA 
HL, CPRAMT) 
Á 
HL, DE 
NC,+231EDC 
08 
+21 
DE, HL 
(CRAMTOF') , HL 
DE' 
EC 
(HL) ,3E 
HL. 
SP), AL 
EC 
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1JEE7 ED733DSC LD 
IEEE EE EX 
1EEC E9 JE 

: comando GOSUuB 
1EED Di FOF 
JEEE FD660b LD 
1EF1 24 INC 
1EF2 ES EX 
1EF3 33 INC 
1EF4 ED4E455 LD 
1EF8 €3 FUSH 
1EF9 Es FUSH 
1EFA E LD 
JEFE DS FUSH 
1EFF CD671E CALL 
1F02 011400 LD 
1F05S 2A655C LD 
1F08 ADD 
1F09 JE 
1FOE EE EX 
1F0L 2 LD 
1F0F 19 ADD 
1F10 3803 JR 
1F12 ED72 SEC 
1F14 DS RET 
1F15 2£03 L.D 
1F17 033500 JE 


(ERRKSF) ¿SF 
DE +, HL 
CHL 3 


DE 


Ha CIY+YSUEFC) 


H 

HL.) (SF) 

SF 

EC), (FEC) 

EC 

HL. 

(ERRKSF) ¿SF 
DE 

167 
EC,0014 

HL.) CSTKEND) 
HL) EC 
Cs+10$1F15 
DE, HL. 

HL. 0030 
HL. + DE 
Cy+331F153 
HL ¿SE 

c 
t.,03 
003 


; devuelve BC=numero de bytes de memoria utilizados 


¡ puede llamarse desde el 


iFÍA 010000 LD 
1F1D CDOS1F CALL 
1F20 44 L.D 
1F21 4D LD 
1F22 (9 RET 
; comando RETURN 
1F23 C1 FOF 
1F24 El FOF 
1F25 D1 FOF 
1F26 7A LD 
1F27 FESE CF 
1F29 280E JR 
1F2E 3E DEC 
1F2C E3 EX 
1F2D EE EX 
1F2E ED733D35C LD 
1F32 C3 FUSH 
1F33 C3731E JE 

, 

1F36 DS FUSH 
1F37 ES FUSH 


j error “return 


Without 


1F28 CF RST 
1F37? 06 DEFE 
: comando PAUSE 


EC+,0000 
1F05 

E , H 

CL 


EC 

HL. 

DE 

A,D 

3E 
Zy+1131F36 


SF po?” 


HL, (SF) 
DE, HL. 
CERRSF),SF 
EC 

1E73 


DE 
HL. 


gosut? retorno sin 


úe 
+6 
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Basic mediante USR+SéZ 


gosuko 


1F3A CD991E CALL 1E99 


1F3D 76 HAL. T 

1F3E 0É DEC EC 

1F3F 78 LD A4s,E 

1F40 El OR c 

1F41 280€ JR Z¿+1231F4F 
1F43 78 LO AE 

1F44 Al AND 2 

1F45 30 INC Á 

1F46 2001 JR NZ,+131F49 
1F48 03 INC EC 

; comprobar si se pulsa tecla 

149 FDCE016E ETT Ss CIY+YELAGS) 
1F4D Z8EE JR Z,-1831F3D 
1F4F EDCEO1AE RES Ss CLY+YFLAGS) 


153 (9 RET 

y subrutina para comprobar la tecla Break 
; devuelve NE si Break ¿shift + espacio) 
1F54 EREAK 3 


1534 3E7ZF 1.0 A, 7F 

1F56 DEFE IN A, (FE) 

158 1F REÁ 

1F359 D8 RET C 

1F5%A 3EFE LD A+ FE 

1F5C DEFE IN As (FE) 

1FSE 1F RRA 

1FSF C9 RET 

; comando DEF FH 

160 CD3023 CALL 20 

1F63 28053 JR Z+331FÓA 
1F65 3ECE LO fi, CE 

1F67 C3391EÉ JE 1£39 

, 

1F6A FDCE0DÍIF6 SET 6, (IY+YFLACS) 
1F4E CD8D2C CALL 2C8D 

1F71 30164 JR NC)+2231F89 
1F73 E7 EST 20 

1F74 FE24 CF $41 

1F76 2003 JR NZ,+551F7D 
1F78 FDCEO1E6 RES 6, C(IY+YFLAGS) 
1F7C E7 RST 20 

1F7D FE28 CF eS 

1F7F 203€ JR NZ,+6031FED 
1F81 E7 RST 20 

1F82 FEZ29 CF A 

1F84 2820 JR Z,+3231FA6 
1F86 CD8D2C CALL. 208D 

1F89 D2BA1C JE NC), 1C8A 
1F8C EE EX DE, HL. 

1F8D E7 RST 20 

1FSE FEZ4 CF $4” 

190 2002 JE NZ,+231F94 
1F92 EE EX DE, HL 

1F93 E7 RST 20 
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1F94 EE EX 
1F95 010600 LD 
1F98 CDS3uló CALL 
LEE 23 INC 
1F9C 23 INC 
1F9D 360É LD 
1F9F FEZC CF 
1F61 2003 JE 
1FA3 E7 RKST 
1F44 18E0 ES 
146 FEZ?2 CF 
1FAS 2013 JR 
1FAA E7 ST 
1FAR FES3D CF 
1FAD 200ÉE PES 
1FAF EZ RKS1 
1FE0 JAJESCE LD 
1FE3S FS PUSH 
1FE4 COFEZ4 CALL 
1FE7 Fi FOF 
1FE8 FDAEODA XOR 
FER ES40 AND 
1FED C28A1C JE 
1FCO0 CDEEJE CALL 
1FC03 CD3025 CALL 
1FCó6 El FOF 
1F07 CA RET 
1FC08 ES JE 

; comando LEFRIMT 
109 3E03 LD 
FCE 1802 ER 

A comando PRINT 
1FCD 3E02 LD 
1FCOF CD30253 CALL 
1FD2 C40116 CAL.L 
1FD5 CDADOD CALL. 
1FD8 CDDF1F CALL. 
1FDE CDEEJE CALL 
1FDE C9 RET 
y obtener caracter a 
1FDF DF KST 
1FE0 CD4320 CALL 
1FE3 280D JR 
1FE5S CD4E20 CALL 
1FE8S 28FE JR 
1FEA CDFC1F CALL. 
1FED CD4E20 CALL 
1FF0O 28F3 JR 
1FF2 FE29 CF 
1FF4 C8 RET 
1FF35 CDC31F CALL 
1FF8 3E0D LD 
1FFA D7 RST 
1FFE (9 RET 


DE), HL. 
EC+0006 
1655 

HL. 

HL. 

(CHL),0É 
205comma 
NZ),+331FAS 
20 

-3211F86 

4 ) ¿ 
NZ,+1951FED 
20 
NZ3+1431FED 
20 

As) CFLAGS) 
ar 


(TY+YFLAGS) 
40 

NZ+1084A 
1EEEÉ 

2330 

HL. 

Z. 

CH) 


fsb33printer 
+231FCF 


Aj,02;screen 
2330 

NZ, SELDEV 
0D4D 

1FDF 

1EEE 


imprimir 


18 

2045 
Zy+1351FF2 
204E 

Zo 331 FES 
1FFC 

204É 
Z,-1331FES 
ny: 

yA 

1FCO3 

A)CR 

10 
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+ 


, 

1FEC DE EST 18 

1FFED FEAC CF ACI AT” token 
1FFF 2000 JR NZ,¿+133200E 
20601 CD791C CALL. 10079 

2004 CDC31F CALL. 1FCO3 

2007 CDO7Z3 CALL 2307 

¿004 3516 Lo A,163* AT” control 
¿200€ 1810 JE +16;5201E 
200E FEAD CF ADIF TAE? toker 
2010 2012 JR NZ,+1832024 
2012 E7 RST 20 

2013 CDez1C CÁLL. 1082 

2016 ODOIJE CALL. 1FCOS 

2019 CD9P1E CALL. 1E99 

2012 3E17 LD A+,173 "TAE? control 
201€ DZ REST 10 

201F 279 LO Ar, 

2020 D7 EST 10 

27021 78 LD fy E 

2022 D7 REST 10 

2023 109 RET 

, 

20724 CDOF221 CALL. 21F2 

2027 DO RET NC 

2028 CD70Z0 CALL 2070 

¿02E D0 RET NC 

2020 COFEZA CÁLL CAFE 

202F CDC31F CAL.L. 1FOS 

2032 FODCE01i76 ETT 6, (IY+YFLAGS) 
2036 CCF1IZE CALL. CS ZEF1 

2039 0C2E32D JE NZ,2DE3 

2030 78 LD aj E 

203D El OR E 

Z03E 0É DEC EC 

203F (8 RET Z 

2040 1A LD As, (DE) 

2041 13 INC DE 

2042 D7 RST 10 

2043 18F7 JR -95203C 

2043 FEZ9 CF ey, 

2047 C8 RET Z 

2048 FEOD CF CR 

2044 C8 RET Z 

204E FEA CF 3Ajcolorn 
204D C9 RET 

, 

204E DF EST 18 

204F FEE CF 3Efsemicolon 
2051 2814 JR Z,+2032067 
2053 FEZ2C CF 2¿C;comma 
2055 2004 JR NZ,+105$2061 
2057 CD3025 CALL 2530 

2054 2806 JR Zy+1132067 


99 


2088 


2089 
208C 
208 
2090 
2093 
2096 
209% 
2090 
2040 
2044 
2047 
2048 
2044 
20AC 
20AD 
20861 
2053 
2054 
2067 
20EÉE 
20EE 


. 
, 


20C1 
20C4 
2006 
20C8 
20CA 


DZ20E16 
cnoilé 
A7 
09 


comando 


CO3023 
2808 
3E01 
cpbo11ó4 
CD6E0D 
FD360201 
£DC120 
CDEEÍE 
ED4E883C 


47 


328C0C35C 
FDCE:0286 
CDD90D 
C36E0D 


CD4E20 
28FE 
FEZ8 
200€ 
E7 


L.D 
RST 
JR 
CEP 
RET 
CALL 
EST 
CALL 
JR 
FOF 
CF 
RET 


CE 
SF 
RET 
RST 
CALL 
AND 
CALL. 
CALL. 
CE 
JE 
CALL 
AND 
RET 


INPUT 


CALL 


JE 


A4+06jfprint comma 


10 
+6$2067 
275$apostrophe 


2045 

NZ,+13206É 
¿C 

Á 


23 


NZ 

20 

1082 

A 

1FC3 
1E94 

10 
NC,160É 
SELDEV 
ñ 


23530 
Z,+832096 
A,01 

SELDEV 

0Dé6E 
(IY+YTVUFLG)>,01 
20Cc1 

16EE 

EC), (SFOSN) 

A, (DFSZ) 

E 
C,+3520AD 
c,21 

EA 
(SFOSN),EC 
A,19 

E 

(SCRCTI),A 

0, (IY+YTUFLG) 
CURSOR 

0D6E 


204E 
Z,-3520C1 
(/ 
NZ,+14520D8 


20 


100 


Z0CE 
20CE 
20CF 
20D1 
20D4 
20D3 
, 

20D8 
20DA 
20DC 
20DD 
20560 
20E4 
20E8 
20EÉ 
, 

20D 
20F0 
20F3 
20F6 
20FA 
20FD 
2100 


2103 : 


2106 
2108 
2104 
210D 
210F 
2111 
2114 
2116 
2118 
2114 
211€ 
211€ 
2110 
211F 
2120 
2121 
2Lez 
2124 
2126 
2127 


2128 


"2127 


2120 

.130 
2132 
2135 
2136 
2139 
213A 
213D 


CDDFiF 
DF 
FEZ29 
c2841C 
E7 
CIEZ221 


FECÁA 
2011 

ES 
cniF1C 
FDCE3S7FE 
FOCE0176 
C2EA1C 
180D 


CDabzC 
DRAFZI 
cD1F1C 
EDCESTEE 
co3023 


2 1 


CAEZI 


010100 
CE7E 
200€ 


SA3SESC 


223830 
FDOCE377E 
2020 


NZ,1C8A 
20 
2162 


CA? “LINE” token 
NZ,+175320ED 

20 

1C1F 

7 y (IY+YFLAGX) 
by CIY+YFLACS) 
NZ>,1C08A 
+13320FA 


¿08D 

NC,21AF 

1C1F 

73 CIY+YFLAGX) 


da] 
¿uo 


2,2162 
16EF 

HL.) FLAGX 
6, (HL) 

Ss CHL) 
EC+0001 

7 (HL) 
NZ,+115$211C 
fs (FLAGS) 
40 
NZ,+25211A 
0,03 

(HL) 
(HL) A 


(HL), A 
(KCUR) , HL 

7 y (IY+AYFLAGX) 
NZ,+445215E 
HL. , (CHADD) 
HL 

HL.) CERRSF) 


101 


213E 
2142 
2144 
2148 
214E 
214 
21502 
e E 
2139 

2130 
215E 
2161 
2165 
2168 
2164 
2160D 
2171 
2174 
2177 
2179 
217€ 
2170 
217F 
2180 
2181 
2184 
2185 
2188 
218€ 
218F 
2192 
2196 
2199 


+ 
, 


219 
219E 
2142 
2143 
Z1AS 
2146 
21A7 
21AA 
21AD 
21AF 
2162 
21E5 
21E8 


+ 
? 


2159 
21EC 
216F 
2100 
2102 


2104 


FONCE3066 
2804 
ED733DSC 
2A613C 
CDA711 
FO3400FF 
CD2C0F 
FDOCEOLEE 
CDESZ21 
1803 
CDZCOF 
FD362200 
CDD6Z21 
2004 
(01011 
ED4E8230 
CONDS 0D 
21713560 


EDCEOILFE 
CDE9Z21 
ZADMEDO 
FED3S424600 
223050 
1817 


2ABISC 
EDSE6150 
37 


246150 
225D50 
DE 
FEEZ 
2800 
347150 


4, (IY+YFLGS2) 
Z++432148 
CERRSE),SF 

HL) CNORKSF) 
1147 
CIVY+YERRKNROI ¿FF 
CETLIN 

7 CXYAYFLAGS) 
2159 

+352161 

GETL IN 
(IY+YEKCUR+1)3,00 
2106 
NZ,+105 
111D 
EC) CECHOE) 
CURSOR 

HL.) FLAGX 
Sa OHL) 


2174 


72 UHL.) 

7 CHL) 

NZ +28 72109 
Hi. 

HL. 
CERRSF), HL. 
Hi. 


(XFTRO ¿HL 

77 CIYAYELACGS) 
2189 

HL) <CXETR) 
(C1Y+XFTR*e1)3,00 
CEHADDA , HL 
+2332162 


HL y CSTREOT> 
DE), CNHORKSF) 


HL, DE 
EH 
C,L 
2AEZ2 
2AFE 
+3321E2 
1FFE 
204E 
12001 


HL, CHORKSF) 
(CHADD) , HL 
18 
E25$*STOF” 
Zy+12321D0 
A, (FLAGX) 
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token 


o 


2107 CDS91C 
21CA DF 
21C0E FEOD 
21C0D C8 
21C0E CF 
21C0F 0 
21D0 CD3025 
2103 (8 
2104 CF 
2105 10 

¡ comprobar 
21D6 24513 
21D9 23 
210A 23 
2106 23 
210C 23 
210D 7E 
21DE FE4E 
2120 092 


+ 
, 


21£1 E? 
21E2 CDEZZ 
2185 08 
21€6 DF 
21E7 FEZC 
21E9 28F6 
21EE FESE 
Z1LED ZO 
21EF C38ALC 


21F2 FED 
2174 D8 
21F5 FEDE 


CALL 
RST 
CF 
RET 
RST 
DEFE 
CALL 
RET 
RST 
DEFE 


el canal 


1039 
18 
CR 
Z 


08 


+11inmonmsense 


2330 

Z 

08 

+163S5TOF in 
en USO es el 
HL) CCURCHLO 


HL 


HL. 


18 
2Cj3comms 
Zi r10321E1 


3Essemicolor 


Zi 14321E1 


INFUT 
Sp 


1C084jronsense 


D9$ "INK "+ .. 
c 


E 
AF 
20 


AF 


DF F+.« “OVER” 


+1 


C9jimakes ectl char 


103 


Y 


NIAANMmN»NMNNNNNNNN? 
rm 
o 


> 


PS POMO NN ANANMNNNN AN 


281D JR Zy+2932234 
D602 SUE: 02 
CE00 ADC 00 
2856 JR Z,+86$2273 
FE0O1 cF 01 
7A LD AD 
0601 LD E, 01 
2004 JE NZ,+432228 
07 RLCA 
07 KL.CA 
0604 LD 2,04 
4F LD C,A 
7A LD As,D 
FE02 CF 02 
3014 JR NOC++22 32244 
FE 7 LD AC 
2F 219135 LD HL) FELAG 
1838 JR +363 2260 
76 LO A+,D 
0607 LD E, 07 
3805 JE C++ 22 IE 
07 RLCA 
07 RLCA 
07 RLCA 
0638 LD +38 
RE 4F LD CA 
7A LD As 
FEDA CE 0ñA 
2 3802 JR Crt+t2i2 246 
CF RST 06 
13 DEFE +1975inv colour 
218F3C LD HL¿ATTRT 
FE09 CF 08 
- 380E JE (C)y+1132258 
TE LD A, CHL) 
2807 Ji Li+27i22n 
E:0 OR E 
2F CFL. 
E624 AND 24 
2801 JR Zy+132237 
78 LD A,JE 
4F LD CA 
79 LD AC 
CD6C22 CALL 226€ 
307 LD A,07 
EA CF D 
9F SEC A 
EcD6C22 CALL 226 
07 RLCA 
07 RLCA 
E6S50 AND 30 
47 LD EJÁ 
3£08 LD A,08 
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3N Nov. 
PAN 


ES 
' 


2270 
227€ 
227F 
2281 
2283 
2283 


2287 


'A cF 
9F SEC 
AE XOR 
A0 AND 
AE XOR 
77 LD 
23 INC 
78 LD 
C9 RET 
9F SEC 
7A LD 
0F RECA 
0680 LD 
2003 JR 
0F ERCA 
0440 LD 
4F LD 
7A LD 
FE0O8 CE 
2804 JE 
FE02 CE 
30ED JE 
79 LD 
218F35C LD 
CDECZ2 CALL 
79 LD 
0F RECÁ 
0F RECA 
DF RECÁ 
? 18D8 JR 
comando BORDER 
CD941E CALL 
FE0S CF 
3049 JR 
DIFE OUT 
07 RKLCA 
07 ERLCA 
07 RLCA 
CE4SF EIT 
2002 JR 
EE 07 XOR 
324835C LD 
9 RET 
3EAF LD 
90 SUE 
DAF924 JE 
47 LD 
A7 AND 
1F RRA 
37 scF 
1F RRA 
A7 AND 


ñ 

AD 

E,80 
NZ,+3+227D 


NC+ “6712244 
AC 

HL.) ATTRT 
226 

A,C 


-4052260 


1E94 

08 

NC+-87 52244 
(FEJ,A 
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2257 A8 XOR E 

27258 ESF8 AND F8 

22EA A8 XOR E 

22EE 67 LD Hs, A 
22EC 79 LD A), T1 
22D 07 RLCA 

226E 07 RLCA 

226F 07 RLCA 

2200 A8 XOR E 

2201 E6SC7 AND 27 

2203 A8 XOR E 

2204 07 RLCA 

2205 07 RLCA 

2206 6F LD LA 
2207 79 LD AC 
2208 ES07 AND 07 

22CA C9 RET 

, 

22CE CDO0723 CÁL.L 2307 
2Z2CE CDAAZZ CÁLL 22 
22D1 47 L.D EJÁ 
22D2 04 INC E 

2203 7E LD Ay, (HL) 
2204 07 RL.CA 

2205 10FD DJINZ -3322D4 
2207 E601 AND 01 

2209 C03282D JE 2028 

5 comando PLOT 

22D0 CDO723 CALL 2307 
22DF CDESZZ CALL ¿RES 
222 C34D0D Ji 0D4D 

y dibujar un punto en B=fila C=columma 
22 ES ED437D3C 1D CCOORDX3 ¿EC 
22E9 CDAAZZ Cád.L 22h 
22EC 47 LD ESA 
2ZED 04 INC E 

22EE JEFE 1.D As) FE 
22F0 0F RECA 

22F1 10FD DINZ -3322F0 
22F3 42 LD ESA 
22F4 7E LD A» (HL. 
22F5 FD4E37 LD C), (IY+YFFLAG) 
22F8 CE41 EIT 0,C 
22FA 2001 JR NZ,+1322FD 
22FC A0 AND E 

22FD CES1 EIT 2, 
22FF 2002 JR NZ,+232303 
2301 A8 XOR E 

2302 2F CFL 

2303 77 LD CHLIA 
2304 C3DEOE JE 0EDE 

, 

2307 CDi423 CALL 2314 
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2304 47 LD 
230E C3 FUSH 
230C CD1423 CALL 
230F 39 LD 
2310 Ci FOF 
2311 31 LD 
2312 4F LD 
2313 C9 RET 
) 

2314 CDDS2D CALL 
2317 DAF924 JE 
2314 0601 LD 
2310 C8 RET 
231D 0EFF LD 
231F C9 RET 
: comando CIRCLE 
2320 DF RST 
2321 FE2C CF 
2323 C28A1C E 
2326 E7 RST 
2327 CD821C CALL 
2324 CDEEJE CALL 
232D EF RST 
ZE ZA DEFE 
232F 3D DEFE 
2330 38 DEFE 
2331 7E LD 
2332 FE8l CF 
2334 3003 JR 
2336 EF RST 
2337 02 DEFE 
2338 38 DEFE 
2339 1841 JR 

? 

223 EF RST 
2330 43 DEFE 
233D 38 DEFE 
2339É 3483 LD 
2340 EF RST 
2341 C5 DEFE 
2342 02 DEFE 
2343 38 DEFE: 
2344 CD7D24 CALL 
2347 C5 FUSH 
2348 EF EST 
2349 31 DEFE 
234A El DEFE 
234E 04 DEFE 
2340 38 DEFE 
234D 7E LD 
234E FE80 cF 
2350 3008 JR 
2352 EF RsT 
23353 02 DEFE 


EsJÁ 
EC 
2314 
E,C 
EC 
D¿C 
CA 


2DD5 
0,24F9 
C,01 

Z. 

Cs, FF 


18 

¿Cjcomma 
NZ,1C08A 

20 

1082 

1ELE 

28 

HAZ AES 
+6ljirestack 
+56jTp exit 
As CHL) 

81 
NOC++0532330€É€ 
28 
+2$delete 
+36$fp exit 
-95+$22DC0 


28 

+13 

+uó6jfp exit 
CHL),83 

28 
+1973store Y 
+2ídelete 
+563fp exit 
247D 

EC 

28 

+493c0p3y 
+223;$Q0et 1 
+4;m1tiply 
+56$fp exit 


+2idelete 
107 


2354 
2355 
2336 
2337 
, 

233A 
235€ 
2330 
2330 
233€ 
23 
2360 
2361 
2362 
2363 
2364 


236: 


2366 
2367 
2368 
2369 
236% 
2366 
2360 
2360 
236k 
2371 
2374 
2373 
2376 
2379 
¿37A 
237% 
237É 
237F 


, 

2382 
22383 
22393 
2307 
¿38 


, 
238D 
238E 
2391 
2394 
2393 
2396 
2397 
2398 
2399 
2394 
239 
2390 


FD3462 
CD941E 
6F 


e. 


C0D941E 
El 


C3zoz4 
comando 

DF 

FEZC 

2806 

CDEEIÍIE 

1037724 


EZ 
cDez1c 
CDEE1E 
EF 


DRÁLI 


RST 
CF 
E 
CALL. 
JE 


EST 

CcáLL 
CALL 
EST 

DEFE: 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE: 
DEFE 
DEFE: 


+2idelete 
+563fp exit 
EC 

22DC 


28 
+194jstore 2 
+1jexcha 
+192istore 0 
+2idelete 
+3fsubitiract 
+1jexcha 
+224jet 0 
+13fadd 
+192?$store 0 
+1jexcha 
+493c00py 
+2243et 0 
+15excha 
+493c00Py 
+224iqet 0 
+16(0 
+193jstore 1 
+2ídelete 
+D6jfp exit 
CIY+YMEMET+10) 
15694 

L,A 

HL. 

1E94 

HL 

H,A 

(COORDX) ¿HL 
EC 


Zy+63238D 
EEE 
2477 


20 

1082 

EEE 

28 
+197?store Y 
+162 
+4?multiply 
+3135IMN 

+49 $C00pP3y 
+48 3NOT 
+4853NOT 
+05j true 
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2390 06 
239E 02 
239F 38 
2340 037724 
, 
2343 C0 
2344 02 
2345 C1 
23A6 02 
2347 31 
2348 24 
2349 El 
23AA 01 
234E El 
2340 2A 
234D 0F 
23ME E0 
234F 05 
2350 2A 
231 E0 
2362 01 
2383 3D 
2364 38 
2365 7E 
2366 FES1 
2368 3007 

, 

2364 EF 
23EE 02 
23EC 02 
23ED 38 
23BE 037724 


+ 
, 


2301 CD7D24 
2304 C3 
2305 EF 
2306 02 
2307 El 
2308 01 
2309 053 
2304 Cl 
23CE 02 
23C0C 01 
23CD 31 
23CE El 
23CF 04 
23D0 C2 
23D1 02 
23D2 01 
23D3 31 
23D4 El 
2303 04 
23D6 E2 
23D7 ES 


DEFE 
DEFE 
DEFE: 
JE 


lista de funciones 


DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
LD 

CF 

JE 


RST 
DEFE 
DEFE 
DEFE 
JE 


CALL 
FUSH 
KST 

DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE: 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 


+6 
+2idelete 
+563fp exit 
2477 


+1923store 0 
+2idelete 
+i93ístore 1 
+2idelete 
+493c0pP3 
+42 AES 
+223$9et 1 
+1jexcha 
+223$0et 1 
+42 MES 
+13533dd 
+224$get 0 
+S3divide 
+42 MES 
+224iqet 0 
+liexcha 
+ó6lirestack 
+5063fp exit 
As CHL) 

81 
NOs+7323C01 


28 
+2idelete 
+2idelete 
+563fp exit 
2477 


2470 

EC 

28 
+2iídelete 
+223$06t 1 
+ijexcha 
+*Sidivide 
+193istore 1 
+2idelete 
+1jexchga 
+493Cc0P3 
+225;qet 1 
+4;mu1tiply 
+1943store 2 
+2idelete 
+ifexcha 
+493c0pP3y 
+225;0et 1 
+45mu1tiply 
+22639et 2 
+2293et y 
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23D8 
23D9 
23DA 
23DE 
23DC 
23DD 
23DE 
23DF 
23E0 
23E1 
23E2 
233 
23.4 
238.3 
23E6- 
237 
23E8 
239 
23% A 
238É 
23EC 
23ED 
23 
23EF 
23F0 
23F1 
23F2 
23F3 
23F4 
23FS 


23F6 


23F7 : 


23F8 
23F9 
23FA 
23FE 
23FC 
23FD 
23FE 
2400 
2401 
; 

2404 
2405 
2406 
2407 
2408 
240E 
240ÉE 
240F 
2410 
2411 
2412 


2413 


c1 
DAZ724 


Cu 
EF 
01 
38 
3A7D3C 
CD282D 
EF 
co 
0F 
01 
38 
3A7ESC 


+224jgqet 0 
+3;subtract 
+162 
+4$mu1tiply 
+493c0p3y 
+3153SIN 
+1975store Y 
+2ídelete 
+323C00S5 
+1923store 0 
+2ídelete 
+1945store 2 
+2idelete 
+193;store 1 
+229300t 5 
+45mu1tiply 
+2243get 0 
+22639et 2 
+43mu1tiply 
+15j3dd 
+2235;9et 1 
+1ifexcha 
+1933store 1 
+2 delete 
+224ig6t 0 
+45m101tiply 
+226jiget 2 
+2293qet Y 
+4mu1tiply 
+3 isublract 
+1i943store 2 
+427AES 
+223;qet 1 
HAZIAES 
+15jadó 
+2idelete 
+u6jfp exit 
A+, DE) 

81 

EC 

0,2477 


EC 

28 

+i1jexcha 
+5363fp exit 
A), (COORDX) 
2D28 

28 
+1923store 0 
+15$ad3 
+1fexcha 
+563$fp exit 
A», (COORDY > 


nx 


2416 
2419 
2414 
2416 
2410 
2410 
241E 
241F 
, 

2420 
2421 
2423 
2425 
2426 
2427 
2428 
2429 
2424 
247E 
2420 
242D 
242E 
242F 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
, 


243? 


CD282D 
EF 


3A7D3C 
CD282D 
EF 


FUSH 
RST 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE: 
LD 
CALL. 
EST 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 
LD 
CALL 


2D28 

28 
+1973store Y 
+i5jadd 
+224;0et 0 
+229;9et $ 
+563fp exit 
EC 


E 
Z,+603245F 
+2032439 

28 

+22353et 1 
+493c0P3Y 
+22738et 3 
+4mu1tiply 
+226;8et 2 
+228390t 4 
+4;mu1tiply 
+3 ísubtraci 
+i1933store 1 
+2idelete 
+228qet 4 
+4mu1tiply 
+226306et 2 
+227/3get 3 
+40 tiply 
+15jadd 
+194jstore 2 
+2idelete 
+56jfp exit 


EC 

28 
+192istore 0 
+2idelete 
+223;90t 1 
+1393add 
+495c0p3 
+56ifp exit 
Ay) (COORDX) 
2D28 

28 
+3isubtraci 
+224jget 0 
+22639et 2 
+1i5jadd 
+1923store 0 
+1jexcha 
+224;get 0 
+363fp exit 
A), (COORDY > 
2D28 


111 


38 
CDEZZA4 
234D0D 


38 
CDDSZ2D 
3806 
ESFC 
604 
3002 


3EFC 
FS 
CD282D 
EF 


28 
+3isublract 
+563fp exit 
24E7 


28 
+2ídelete 
+2idelete 
+1fexcha 
+5363fp exit 
A), CCOORDX) 
2D28 

28 
+3ísublreaci 
+ifexcha 
+36+fp exit 
As (COORDY) 
2028 

28 
+3isibtract 
+5S6jfp exit 
24E7 

0D4D 


PS 
20 


+99700p3y 
+4053SQR 
+5B23literel 
+50,+0 
+1fexcocha 
+0idivide 
+229q01 Y 
+1ifexcha 
+¿Sidivide 
HARIAS 
+S6jfp exit 
2005 
Crtój2495 
FC 

04 

NC, +212497 


Aa) FC 

AF 

2D28 

28 
+229;get y 
+1$excha 
+Siídivide 
+49 $c0py 
+313SIN 
+1963store 4 


12 


2442 02 DEFE +2idelete 


2443 31 DEFE +493c0PY 
2944 AZ DEFE: +162 

2443 04 DEFE +4$m01tiply 
24466 1F DEFE +313SIN 
2447 Cl DEFE: +193istore 1 
2448 01 DEFE +ifexcha 
2449 CO DEFE +192istore 0 
24464 02 DEFE: +2idelete 
244€ 31 DEFE +493c0py 
24AC 04 DEFE: +43m51tiply 
24AD 31 DEFE +49c0py 
24AE 0F DEFE +15jadí 
294F Ál DEFE +161 

2460 03 DEFE +3iísublraci 
2461 1 DEFE: +27jnegate 
2467 E3 DEFE +193ístore 3 
2483 02 DEFE +2idelete 
24564 38 DEFE +D6+fp exit 
24635 C1 FOF EC 

2464 09 RET 

? 

247 CD0723 CALL 2307 

QaEñA 79 LD AC 

248 EN CF E 

246C 3006 JR NC,+6324C4 
2ZAEE 49 LD L,C 

24EF DS5 PUSH DE 

2400 AF XOR A 

2401 5F LD EJÁ 

2402 1807 JR +75324CE 
2404 El OR C 

24053 C8 RET Z 

2404 68 Lo L,E 

2AC7 41 1.0 EC 

2408 DS FUSH DE 

2409 1600 LD D,00 

24CE 40 LD H,E 

24CC 78 LD AE 

24CD 1F RRA 

24CE 85 ADD L 

Z4CF 3803 JE C,+3324D4 
2401 EC CF H 

¿4D2 3807 JR C,+7524DE 
2404 94 SUE H 

2405 4F LD CA 

24D46 D? EXX 

2407 Ci FOF EC 

2408 C5 FUSH EC 

2409 1804 JR +4524DF 
24DE 4F LD C+A 

24DC D5 FUSH DE 

24DD D9? EXX 

24DE Cl FOF EC 


13 


24DF 
24E2 
24E3 
24E4 
24E5 
246 
24E7 
24E8 
24EA 
24EC 
24ED 
24EE 
24F1 
24F2 
24F3 
24F3 
24F6 


, 


, 
24F7 4 


24F9 
24FA 


y evaluacion de 
: DE 


DA 


06500 


E CS 


¿30 


y comprobacion 


2aUF 
2312 
2013 


¿ comprobacion 


4F 
219625 
CDDC16 
75 
D28426 
0600 


2 4E 


09 
ES 


2D7400 
03 
FEOD 
CABA1C 


PELZ 


09 


2u2e E? 
2523 FEZB 
2523 2006 
2527 CD791C 
23524 DF 
2526 FEZ9 
232D C28A1C 


No. 


comprobar <i 
530 FDCE017E 


DEFE 


RST 


RET 


HL, (COORDX) 


. » e 
mb» m 


NODNOFro o DmrT> 


N- 


> 
oO mi 
a 


! 
mu >» 
Pm 
«bs 
n 
m 


o 


Zy-1332 
08 


+13524F7 
1+13324F9 


4EC 


+10%$int out of range 
expresiones 


Cs A 
HL.,2396 
14DC 
fA+T 
NC,24684 
E,00 

ls CHI) 
H L $ E E 
CHL.2 


las comillas se corresponden 


0074 

EC 

CR 
Z,1C84$ 
2¿23quot 
NZ>,-135 
0074 


223aquot 


nonsense 
e 
250F 


e 


de parametros entre parentesis 


EST 


20 


yt 


NZ,1C08A3rnonsense 


<e esta en modo 


EXT 


7¿CIYAY 


sintaxis 
FLAGS) 


114 


o en moda FUN 


2334 C9 RET 
; 


SCREEN$ 

25335 0CD0723 CALL 2307 
2538 243630 LD HL.) CCHARS) 
2536 110001 LD DE,0100 

ADD HL,DE 

LD AT 

RRCA 

RECA 

RRECA 

AND E0 

XOR E 

LD EA 

LD Aa,C 

AND 18 

XOR 40 

LD D,A 

LD E,60 

FUSH EC 

FUSH DE 

FUSH HL. 

LD fis (DE) 

XOR CHL) 

JR Zi ARA 

INC Á 

JR NZ++26+2373 

DEC A 

LD CA 

LD E,07 

INC D 

INC HL. 

LD fis (DE) 
ATA E XOR CcHL 
23561 A9 XOR Cc 
2562 200F JR NZ¿+13052373 
23564 10F7 DINZ -P52550D 
2366 (1 FOF EC 
2367 Cl FOQF EC 
2368 Cl F OF EC 
2569 3830 LD 4,80 
23066 90 SsuE E 
2566 010100 LD EC,0001 
256F F7 RST 30 
23570 12 LD (DEIA 
2571 180% JE +105257D 
23573 El FOF HL. 
2574 110800 LD DE,0008 
23577 19 ADD HL. , DE 
2578 Di FOF > DE 
2379 C1 FOFP EC 
25374 10D3 DJNZ -433254F 
23570 48 A LD C,E 
2357D CIRZZA JE Z2AEZ 


. 
, 
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23580 CD0723 CALL 2307 

23583 79 AD As,C 

2384 0F ERCAÁ 

23853 0F ERCA 

2586 0F ERECA 

2387 4F LD CA 

23588 E6ÉE0 AND E 

2584 A8 XOR El 

258E 6F LD L,A 

2380 79 LD A,C 

258D ES03 AND 03 

258F EES8 XOR 58 

2391 67 LD HA 

23592 7E LD As, CHL) 
2393 C3282D JE 2D28 

; DATOS ¿se omite la codificacion) 
sy tabla de desplazamientos de las funciones especiales 
2396 221C 32563 quote 

2398 284F 3$25E8 left paren 
2594 2EF2 3268D period/decimal point 
2390 212 3254AF plus 

259E A856 ¿253FS FN 

2580 ASU7 325F8 RKND 

2542 4784 312627 FI 

2354 A68F 32634 INKEYS 

236 C4E6 $268D EIN 

2548 AAGEF 12668 SCREENS 

235A AEC? 32672 ATTR 

2SAC A9CE 3267 FOINT 

2SñAE 00 jend 

; plus 

25AF E7 EST 20 

23560 CIFFZA JE 24FF 

. auote 

2563 DF EST 18 

234 23 INC Hi. 

2aES ES FUSH Hi. 

2566 010000 LD EC+0000 
232 CDOFZS CALL. 230F 

25EC 201É JR NZ+27325D9 
25SE6E CDOF25S CALL. 250F 

23501 28FE JE Zicif2nubE 
2303 CD3025 CALL. 2330 

23506 2811 US Zy+17325D9 
2308 F7 EST 30 

2309 El FOF HL 

2350A DS FUSH DE 

23C0E 7E LD As, CHL.) 
23500 23 INC HL 

23C0D 12 LD (DEJA 
235CE 13 INC DE 

235C0F FEZ2Z CF 22 / 
2301 20F8 JR NZ),-825CE 
23503 7E LD As CHL) 


1wb 


FEZ9 
cC2Z8A1C 
E7 


E LAALZLEZ 


“EN? 
CIEDZLT 

“END? 
cn3025 


: 2828 


ED4E7650 
COZEZD 
EF 


cnáa22D 
ED43S7ÓSC 


CO30ZS 
2804 


INC HL. 


CF 22 

JR Z,-14325CE 

DEC EC 

FOF DE 

LD HL. , FLAGS 

RES 6, (HL) 

EIT 7, (HL) 

CALL NZ+ZAEZ 

JE 2712 
izquierda 

RST 20 

CALL. 24FE 

CF 0 AS 

JE NZ,1C8Ajnmonsense 

RST 20 

JF 2712 

JE 27ED 

CALL 2330 

JR Z+4032625 

LD EC), (SEED) 

CALL 2DZE 


REST 28 

EF +1461 

+15 2d 
+52iliteral 
+4, +22 
+4imu1tiply 
+52sliteral 
+128,+65,+0,+0 
+128 

+t5ljía MOD b 
+2iídelete 
+161 
+B3isubiract 
+493c0pP3Y 

¿FE +36; fp exit 
CALL ¿DAZ 


1.0 (SEED), EC 
LD Ay CHL) 
AND ñ 

JE Li+Di2ó62o 
SUE 10 

1.0 (HL A 

JE +932630 
CALL. 2030 

JR Zy+432630 
RST 28 

DEFE +163 

DEFE +563fp exit 
INC (HL) 
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2630 
2631 


, 
2634 
2637 
2638 
2634 
263D 
2640 
2642 
2644 
2646 
2449 
264E 
264D 
2650 

2632 
2653 
2654 
2657 
2658 
265€ 
26350 
265D 
2a4SE 
2660 
2667 
2603 

; 
2668 
266 
2606É 
266F 

; 
206772 
2673 
2678 
2479 
267€ 
Z267EÉ 
2681 
2687 


+ 
, 


2684 
2687 
2689 
2648É 


+ 
, 


2680 
2690 
2692 
2693 
2696 


E7 RST 
E3C326 JE 
“ INKEYS * 
015410 L.D 
E7 RST 
FEZ3 CF 
CA0D27 JE 
21385 L.D 
CEE6 RE 
CE7ZE EIT 
281F JR 
CN8E02 CALL 
0£00 LD 
2013 JR 
CD1E03 CALI 
300E JR 
13 DEC 
SF LD 
CD3303 CALL 
FS FUSH 
010100 L.D 
E7 RST 
F1 FOF 
12 LD 
0£01 L.D 
0600 LD 
CDEZZA CALL. 
c31227 E 
“SCREENS” 
CD2225 CALL 
C4A3S2Z3O CÁLL. 
E7 REST 
CIDEZS E 
“ATTR” 
0ND2223 CALL 
C48023 CALI 
EZ RST 
1848 dE 
“FOTNT" 
COZ223 CALL 
CACEZA CALL 
EZ REST 
183F AE 
CD8Sza CALL 
3036 dE 
FE41 CF 
3030 JR 
“EIN” 
cD3023 CÁAL.L. 
2023 JR 
CD9EZ2C CALL 
DF RST 
010600 LD 


HL, FLAGS 

6, (HL) 

7 y HL.) 
Z,+31526653 
028E 

C,00 
NZ,+195$2660 
031€ 
NC,+1452660 
D 

EJÁ 

0333 

AF 

EC,0001 

30 


AF 
(DEJA 
C,01 
E, 00 
ZAEZ 
2712 
2322 
NZ+20 
20 

YA ¡DE 


2u2z 


NZ, 2580 
pa 
7232603 


+63320603 


2008 
NC++86326DF 
A? 
NC++6032%609 


20330 : 
NZ) +33 26É53 
2C9E 

18 

EC+0006 
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2699 CDIS31l6 CALL 
2690 23 INC 
269D 360É LD 
269F 23 INC 
2640 EE EX 
26A1 2A655C LD 
2644 0E03 LD 
2646 A7 AND 
2647 ED42 SEC 
2649 226550 LD 
264AC EDEO LDTIR 
Z6AE ER EX 
26AF ZE DEC 
2660 CD7700 CALL 
2663 180E JR 

, 

2665 DF RST 
26E6 23 INC 
26E7 7E LD 
26E8 FE0E CcF 
26E6A 20FA JR 
2660 23 INC 
26E6D CDE433 CALL 
26C00 225D35C LD 
2603 FDCE01Fé6 SET 
2607 1814 JR 

E cbtener variable 
2609 CDEZ28 CALL 
26C0C DÁZE1C JE 
26CF CC9629 CALL 
26D2 3ABZEST LD 
26D5 FECO cF 
26D7 3804 JR 
2609 23 INC 
24DA CDE433 CAL! 
26DD 1833 JR 
26DF 01DE09 LD 
2662 FEZD CF 
24E4 2827 AER 
¿686 011810 LD 
26EF DABAÍC Ji 
26F2 01F004 1.10 
24 FS FEJA CF 
26F7 2814 JE 
269 DIBALC JE 
26FC 0610 LD 
26FE Có6DC ADD 
2700 4F L.D 
2701 FEDF CF 
2703 3002 JE 
2705 CEEI RES 
2707 FEEE CE 
2709 3802 JR 
270B CEE RES 


HL, (STKEND) 
C,05 

A 

HL,EC 
(STKEND) , HL 


DE), HL 

HL 

0077 
+1452603 


A» (HL. 


DEsruimier flaq 


NZ, 632656 
HL. 

3354 
(CHADD) , HL 


6), (IY+YFLAGS) 


+205260D 


2882 
C+10ZE 
2,2996 

As (FLAGS) 
0 
C+r+94326DD 
HL. 

3384 
+3132712 
EC+,098DE 

2D 
Zy+393270D 
ECs+1018 5 
C,1C08A 
EC,04F0 

14 
Ly+2032700 
NC+1C8% 

Es 10 

DC 

o 

NC, +252707 
6, 

EE 
Cs+23270D 
7 , C 
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cs 
E7 
CIFF24 


DF 

FE28 
¿000 
FNCE0176 
2017 


213E5€ 
7E 


EC 
20 


24FF 


18 
a 
NZy+1232723 


b) CIY+YFLAGS) 


NZ y) +23$12734 
ZASZ 
¿0 


-1632713 


E,00 

C,A 

HL, 2793 
16Dbt€ 
NC,+632734 
C, CHL) 
HL + 26ED 
HL, EC 

Es, (HL. 

DE 


EC 

HL) FLAGS 
AE 

ED 
NZ,+6$274C 
6, CHL.) 
NZ,+25274C 
Es,99 

DE 

2330 
Z+932753É 
A, E 

3F 

Esáñ 

A 


+597use E reg 


+363fp exit 
+95$2764 


AE 
CTIY+YFLAGS) 
40 

NZ,1C8A 

DE 

HL. FLAGS 

6+ CHILL.) 


120 


2764 CE7ZE EIT 7+E 

2760 2002 JR NZ+,+232770 
276E CEE6 RES 6, CHILL) 

2770 C1 FOF EC 

2771 18C€1 JR 6332734 

, 

2773 D5 FUSH DE 

2774 79 LD AC 

2775 FDCEODi76 ETT 6), (IY+YFLAGS) 
2779 2015 JR NZ),+2152790 
277€ E63F AND 3F 

277D C608 ADD 08 

277F AF LD CA 

2780 FEO cF 10 

2782 2004 JR NZ,+452788 
2784 CEF1 SET 6,£ 

2786 1808 JR +832790 
2788 38D7 JR C),-4112761 
2784 FE17 CF 17 

2780 2802 JR Zy+232790 
278€ CEF9 SET 7. 

2790 C5 FUSH EC 

2791 E7 REST 20 

2792 CIFFZ4 JE 24FF 

5 DATOS (se omite la codificacion? 
$ tabla de traduccion de los operadores 
2793 RECF plis 

2797 2003 Minis 

2799 2AC4 jasterishk 

279 2FCO ¿slash 

279D SEC6 UP 3TTOW 

279F 3DCE sequal 

2741 3ECC ¿¡erester ther 

¿2743 3CCD ¿less than 

27 0709 ¿less or equal 

2747 CSCñ jareater or edusl 
2749 C9CE not equel 

27 CCZ $0kr 

274D COCA SAND 

Z27AF 04 send 

: tabla de las prioridades de los operadores 
2760 04080804 . 

274 02030505 3 

2768 05050505 H 

270 06 ' 

; funciones EN 

27D 203025 CALL 23530 

2760 20353 JE NZ +33 277 
2702 E? RST 20 

2703 COSDZC CALL ¿08D 

2704 DZBA1C JE NCs 1084 
2709 E7 EST 20 

2704 FEZ4 CF 14" 

2700 Fs FUSH AF 
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27Cb 
27CF 
2700 
27D2 
27D4 
27D5 
2707 
2709 
27DC 
270D 


27DF 2 


27E1 


27E2 


, 

27E4 
27E6 
27€9 
27EA 
27ED 
27EF 
270 
27F2 
27F4 
: 

27F7 
27F8 
27FA 
27FE 
27FC 
27FE 
27FF 
2801 
- 2802 
2803 
2804 


2807 : 


2808 
280 
2800 
¿80F 
2810 
2812 
2813 
; 

2814 
28153 
¿818 
2814 
281€ 
¿810 
2820 
2822 
2823 


28253 


ZAS3I3C 
ZE 
110E00 
COS 
CDSé6l1D 
cl 
3002 
CF 

18 

ES 


CDA ZE 
E6DF 


RST 
FUSH 
LD 
DEC 
LD 
FUSH 
CALL 
p Q p 
JR 
RST 
DEFE 


FUSH 
CALL 
AND 
CE 
JR 
CALL 
SUE 
CF 
JE 


POF 


NZ+,+1327D0 
20 

Lt? 
NZ¿+18527E6 
20 

3? 
Zy+106327E9 
24FE 

18 
2Cjcomma 
NZ,+35$27E4 
20 


-11327D9 


1ty1 
NZ,1C8A 
20 

HL), FLAGS 
6, (HL) 

AF 
Z¿+2327F4 
6, (HL) 


2712 


20 

DF 

EJA 

z0 

24 

CA 
NZ,+132802 
20 

20 

HL. 

HL) (FROG) 
Hi. 

DE,0D0CE 

EC 

1086 

EC 
NC++232814 
08 

+245FN withont DEF 


HL. 

283AE 

DF 

E 
NZ,+852825 
¿8 


2826 
2827 
282A 
282E 
282E 
282F 
; 
2831 
2832 
28353 
2836 
2837 
283E 
283É 
283F 
2841 
2843 
2844 
2843 
2847 
2849 
284E 
284C 
284F 
28530 
2852 
2853 
2854 
2835 
2858 
28539 
283€ 
285E 
2860 
2861 
2862 
28653 
2868 
286% 
2860 
2846F 
2870 
2871 
2874 
2876 
2878 
2879 
287A 
287C 
287ÉE 
287F 
2860 
2883 


+ 
, 


ZE 
110002 
CS 
CDSE:19 


A7 
CCAE:28 
Di 

Di 
EDS535D5C 
CDAE:28 
ES 

FE29 
2842 

23 

7E 

FEE 
1440 
2807 

2E 


CDAE28 


2263350 
EDESO 
EE 

2E 
CDAEZS 
FEZ9 
280D 


HL. 
DE,0200 
EC 


-4132808 


A 

Z,28AEÉ 

DE 

DE 

(CHADD) ,DE 
28AE 

HL 

e 
Z,+6652885 
HL 

As, CHL.) 
0Esrumber flag 
D,40 


(IY+YFLAGS) 
40 
NZ,+43;288E 
HL. 

DE, HL 

HL.) CSTKEND) 
EC,0005 

HL, EC 
(STKEND) , HL. 


DE, HL. 

Hi 

Z2EAE 

Lo yz 
Z,+1312885 
HI. 

13 
2Cicomma 
NZ,+1332889E 
¿6 

Hi. 

23ñÉ 
-663$2843 
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HL. 

18 

y 
2++2:;288D 
08 


+235$param error 


DE 

DE , HL. 
(CHADD) , HL 
HL.) (DEFADD) 
HL. , (SF) 
(DEFADD) , HL 
DE 

20 

20 

24FE 

HL. 

(CHADD) ¿HL 
HL 
(DEFADD) ¿HL 
20 

2712 


HL. 
fis CHL 
21 


Cs-6;284E 


6) (IY+YFLAGS) 
18 

2030 
NCs1C08A 

HL. 

1F 

Cy A 

20 

HL. 

Bet 
Zy+940328EF 
6, 

AS 


Z+177$28DEÉ 


NC+s+13I720E3 
¿Cut 

NC) +22328EF 
6, 

¿0 

-105$28D4 


2883 ES FUSH 
2886 DF RST 
2887 FEZ29 CF 
2889 2802 JR 
288E EF RST 
2880 19 DEFE 
, 

28gD Di FOF 
288E EE EX 
288F 2235D3C LD 
2892 ZADESC LD 
2893 E3 EX 
2896 220E35€ LD 
2899 D3 FUSH 
289% E7 RST 
289E E7 RST 
289C CDFEZ24 CALL 
289F El FOF 
2840 223D3C LD 
28A3 El FOF 
2804 220630 LD 
2847 E7 RST 
28458 C3122 JE 
28AE 22 INC 
284€ 7E LD 
284D FEZ1 CF 
28AF 38FA JE 
281 [9 RET 
¡busqueda de una variable 
2862 FDCE0O1IF6 SET 
2856 DF RST 
28E7 CD8D2C CALL. 
2864 D28A1C JE 
28ED ES FUSH 
28E6E E61F AND 
2800 4F LD 
2801 E7 RST 
2802 ES FUSH 
2803 FEZ8 CF 
2805 2828 JE 
2807 CEFÍ SET 
2809 FEZA4 CF 
28CE 2811 JR 
2800 CEE9 SET 
280F CO88zC CALL. 
2802 3005 AS 
28D4 COSSZU CALL 
28D7 3016 JE 
2809 CEEI RES 
Z28DE E? RET 
2800 18F6 JE 

7 

28DE EZ RST 
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28DF 
283 
2856 
28E7 
28E9 
280 
28EF 
28F0 
28F3 
28F3 
28F6 
28F8 
28éFA 
28FE 
+ 

28FD 
2900 
2901 
2903 
29053 
2906 
2908 
2909 
22904 
29 0D 
290F 
2910 
2911 
2912 
2913 
2914 
29153 
2917 
2919 
291€ 
2910 
291E 
2920 
2921 
292 
2924 
2927 
2929 
¿9ZÁA 
¿92 E 
ZOÉ 
202 
¿930 


» 
, 


VARO ya 
2934 
ZOO 
2936 
2938 


FOCE01E46 
30030 
7 

2806 
CD3023 
C23129 


41 


CS 
coE819 
ER 
C1 


FEZE 


2809 


bs CIY+YFLAGS) 


(7 (5000) 

fi 
Zy+6328EF 
2530 
NZ,2931 
EC 

2530 
NZ,+8328FD 


A, (HL) 


C,+4853293F 
DE 

DE 

HL 

HL. 

A) (DE) 

DE 
2¿0íspace 
Z-632913 


20 


CHILL) 
NZ++63292 
Ay (DE) 
¿068 
NC+¿+213293E 
HL. 

EC 

19568 

DE), HL. 

EC 
-5032900 


7 E 
DE 
18 
(+ 
AAA 
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2934 CEEB SET JE 


2930 1800 E +131294€ 

y 

293E Di FOF DE 

293F Dil FOF DE 

2940 Dil FOF DE 

2941 ES FUSH HL. 

2942 DF EST 18 

2943 CD882C CALL 2088 

2946 3003 JR NC+,+35$294E 
2948 E7 RST 20 

2949 18F8 JR -832943 

,) 

2946 El FOF HL 

294C CEJO RL E 

294E CEZ7O EIT 6,É 

2950 C9 RET 

, 

2931 2A40E5€ LD HL, (DEFADD) 
29534 7E LD Ay, CHL) 
2953 FE29 CF 23? 

29357 CAEFZ8S JE Z,28EF 
2954 7E LD A, (HL) 
295E F660 OR 60 

295D 47 LD EJÁ 

2935 23 INC HL 

295F 7E LD A, (HL) 
2960 FEOE CF DEsniumber fla 
2962 2807 JR Zy+7;3296ÉE 
2964 2E DEC HL 

29635 CDAEZS CALL 289AE 

2968 23 INC HL. 

2969 CEAS RES SÉ 

2965 78 LD AE 

2960 ES CF 2 

296D 2812 JE Z,+18$2981 
296F 23 INC HL. 

2970 23 INC HL 

2971 23 INC HL 

2972 23 TNC HL. 

2973 23 INC HL. 

2974 CDAEZS CALL Z8AE: 

2977 FEZ9? CF eo E 

2979 CAEFZS JE Z+28ÉF 
2970 CDAEZS CALL 238AE 

297F 18D? JE BP IZDA 

+ 

2981 CE69 EIT s,€ 

2983 200€ JE NZ++1232991 
29835 23 INC Hi. 

2986 EDSE6S5SC LD DE, (STKEND) 
2984 CDCO033 CALL 3300 

298D EE EX DE, HL. 

298€ 226350 LD (STKEND) +, HL. 
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2991 D1 FOF 
2992 Di FOF 
29793 AF XOR 
2994 32 INC 
29935 (9 RET 
y variables de tipo 
2996 AF XOR 
2997 47 LD 
2998 CE79 EIT 
2994 204€ JR 
2990 CE7ZE EIT 
299E 200E IS 
2940 38 INC 
2941 23 INC 
29A2 4E LD 
2943 23 INC 
2944 46 LD 
2945 23 INC 
2946 EE EX 
2947 CDEZZA CALL 
29AA DF RST 
29AE C3I492A JP 
, 

29AE 23 INC 
294AF 23 INC 
2960 23 INC 
29561 46 LD 
29EZ2 CE7ZIÍ EXT 
2964 2804 JR 
2966 03 DEC 
2957 28E8 JR 
29589 EE EX 
29RA DF RST 
2968 FEZ8 CF 
29E6D 2061 JR 
29EF ER EX 
2900 EE EX 
2901 1924 JR 
, 

2903 ES FUSH 
2904 DF RST 
29059 El FOF 
2906 FEZL CF 
2908 2820 JR 
290A CE79 ETT 
2900 2832 JR 
29CE CE71 ELIT 
2900 2006 JR 
29DZ FEZ CF 
29D4 2030 JR 
29D6 E? RST 
29D7 9 RET 
, 

2908 FEZ29 CF 


vectar 


ñ 

EJÁ 

7+C 
NZ++73529E7 
7 y HL) 
NZ,+145294AE 


Z,+10$29C0 
E 
Zi-24329A1 
DE, HL 

189 

a 
NZ),+9732A20 
DE, HL. 

DE, HL 
+36329E7 


HL. 

18 

HL. 
¿Cícomma 
Zi +3BRILI EA 
73. 

Zi +R2RIZAZO 
6, 
NZ,+6329D8 
ty? 
NZ,+6032412 


20 


ry! 
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29D4 286 JR Z,+10832448 


2900 FECC CF COTO” toker 
29DE 2032 JR NZ,+305Z2A12 
29€0 DF REST 18 

29E1 2E DEC HI 

29E€2 2235D35C LD (CHADD) , HL 
29E3 185EÉ JE +9432445 

, 

29E7 210000 LD HL.,0000 
29EA ES FUSH HL. 

29EE E7 EST 20 

29EC El FOF HL. 

29ED 79 LD A,C 

29EE FECO CF Co 

29F0 2009 JR NZ,+9329FE 
29F2 DF RST 18 

29F3 FEZ29 cr 31 

29F35 2851 JR Z,+81527A48 
29F7 FECC CF Cc;'*TO” 
29F9 28E3 JR Z+-27$29E0 
29FE CS5 FUSH ¿C 

29FC ES FUSH HL 

29FD CDEEZA CALL Z2AEE 

2400 ES EX HL), (SF) 
2401 EE EX DE, HL 

2402 CDCCZÁ CÁLL Z2ACC 

2405 3819 JR C,+t2352420 
2407 0 DEC EC 

2408 CDF424A CALL ¿AF 4 

2A0E 09 ADD HL, EC 

240€ Di FOF DE 

2460D Cl FOF EC 

240€ 10E3 DJINZ -77329C03 

y 

2410 CE79 EXT 74 

2412 2066 JE NZ,+10252A74A 
2414 ES FUSH HL. 

2415 CE71 EIT 6, 

2417 2013 JE NZ,+1932A20 
2419 42 LD ED 

2014 4 LD C+,EÉ 

241E DF KST 18 

210 FEZ29 Cr de ES 

2A1E 2802 JE Z +2 2ZA2RZ 
2Aa20 CF RST 03 

2A21 02 DEFE +2isubsoript wrora 
? 

2a2z2a E? KST 20 

2423 El FOF HL. 

2424 110500 LD DE>,00053 
2427 CDFIZA CALL Z2AFA 

2AazáAá 09 ADD HL. EC 

ZaA2E C9 RET 


, 
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ZARC 
2AZF 
2430 
2433 
2434 
2A33 
2A36 
2437 
2A38 
2439 
2A3C 
243D 
ZA3F 
2441 
2443 
2AAS 
2448 
2449 
244€ 
24640 
2431 


, 
, 


2432 
2433 
2438 
2439 


2AGE 2 


2A35D 
Z245EÉ 
2A3F 
2460 
2A61 
2464 
2465 
2A66 


2468 : 


ZALSA 
ZAGE 
Z2AbE 
2446F 
2A70 
2471 
2a72 
2473 
2474 
247ó 
2478 
247 
247D 
Z2A7E 
2Aa7F 
; 

Z2A81 
2482 


CDEEZA 
ES 
CNDE42A 
c1 
09 
23 
42 
4E 
EE 
CDE:1ZA 


28F8 


C9 


F1 
COCDZA 


FEZ9 
C28ALC 
62 


FUSH 
RST 


Z2AEE 
HL, (SF) 
Z2ar4 

EC 

HL) EC 


eo 
Z,+732448 
2C3comma 
NZ,-3732A20 
Z2AS2 

20 

e? 
Z+-8524439 

6, (IY+YFLAGS) 


2330 
NZ,2EF1 

20 

o MES 
Z,+80324AD 
DE 


EC 

DE,0001 

18 

HL 

603 “TO? 
Z,+2332A81 


24+952A481 
0 
NZ,1C84A 
Hs,D 

L,E 
+1932494 


HL. 


20 
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2483 El FOF HL. 


2484 FEZ9 CF ESA 

2486 280€ JE Z+12324894 
2488 Fl FOF 13 

2489 CDCDZA CALL. ZACD 

2480 FS FUSH AF 

248D DF EST 18 

ZA8E 60 LD H,E 

2A8F 69 LD: L,C 

2490 FE29 CF 131 

2492 2056 WR NZ+-265$2A74A 
2494 Fi FOF AF 

2493 ES EX HL, (SF) 
2496 19 ADD HL, DE 

2497 2E DEC HL 

2498 E3 EX HL, (SF) 
2499 A7 AND Á 

249A EDSZ2 SEC HL ,DE 

2A9C 010000 LD EC,0000 
249F 3807 JR C,+732A4A8 
24A1 23 INC HL 

2AA2 A7 AND A 

Z2AA3 FAZ02ZA JF M,2A20 

2A4ñ6 44 LD EH 

2A47 4D LD C,L 

2ñAA8 D1 FOF DE 

2449 FDCE01E6S RES 6), (IY+YFLAGS) 
2AAD CD3025 CALL 2330 

2AE0 C8 RET z 

¿colocar elemento en la pila de calculo 
2AE1 AF XOR ñ 

ZABZ FDCEO1E6 RES 6+, (IY+YFLAGS) 
2AR6 CS FUSH EC 

247 CDA933 CALL 33A9 

2ARA C1 FOF EC 

ZARE 246350 LD HL., (STKEND> 
2AEE 77 LD CHIA 
2ARF 23 INC HL. 

2400 73 LD CHLI),E 

2AC1 23 INC HL. 

2402 72 LD (HL), D 
2403 23 INC HL. 

2404 71 LD CHLOE 
ZAC 23 INC HL. 

Z2AC6 70 LD CHLI E 

Z2AC7 23 INC HL. 

2408 226550 LD (STREND) ¿ HL 
2ACE CS RET 

3 

2ACC AF XOR ñ 

2ACD D3 FUSH DE 

¿ACE ES PUSH HL. 

2ALF ES FUSH AF 

2400 CD8zi1c CALL 1082 
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2AD3 
2404 
2AD7 
2409 
ZADÁA 
2ADD 


ZADE - 


2ADE 
2AE0 
2AE1 
2A4E3 
Z2AE4 
2AES 
2AE6 
ZAE8 
24E9 
ZAEE: 
Z2AEC 
2AED 


, 
ZARE 
Z2AEF 
Z2AFO 
2AF1 
2AF2 


Z24F3 


, 

24F4 
24F7 
Z2AFB 
2AFE 
2AFE 
; 

2AFF 
2E02 
2E04 
2€608 
260 
20€ 
2600 
¿EDE 
2E10 
2Ei2 
214 
216 
218 
RELA 
2E1C 
21D 
, 

2E1F 
222 
224 
2EZ6 


Fi 
CO30Z3 
2812 
FS 


CD991EÉ 


CDA930 
DA1SiF 
09 


2A4D3C 
FDCE374E 
285É 
010300 
03 


FE16 
300D 
23 


18ED 


CD88zC 
387 
FEZ4A 
CACOZE 


AF 
2530 
Z,+1832AEE 
AF 


D, (HL) 


2530 

Z 

3049 
C,1Fi5 


HL), (DEST) 
1), (IY+YFLAGCX) 
Z,+94325E66 


As, (HL) 
20íspace 
Z+-632E0C 
NC++1152E1F 
10 
Cs+1732E29 
16 

NC/+133 2529 
HL. 

1932600 


79 LD A. 


2AS9SL LD HL, CELINE) 
D ZE DEC HL. 
E COSSló CALL. 1633 
23 INC HL. 

2632 23 INC HI. 
2633 EE EX DE, HL 
2634 D3 PUSH DE 
2533 2A4DIGC LD HL.) (DEST) 
2638 1E DEL DE 
2E39 D606 SUE 06 
2E3E 47 LD ESA 
2830 2811 JE Z +17 328 4F 
2E3E 23 INC HL. 
2E3F 7E LD A» (HL) 
2640 FEZ1 CF 21 
2642 38FA JR C,-632E3E 
2644 F620 OR 20 
2646 13 INC DE 
2647 12 LD (DEIA 
2648 10F4 DJNZ =12;2E3E 
y activar el bit * para indicar el ultimo byte 
2544 F680 OR 80 
2640 12 LD (DEA 
24D 3EC0 L.D A,Cc0 
264F 244D5C LD HL, (DEST) 
2632 AE XOR (HL) 
2553 F620 OR 20 
2595 El FOF HL. 
26596 CDEAZE CALL ZEEA 
2639 ES FUSH HL 
2ESA EF RST 28 
2E3SE 02 DEFE +2;delete 
28390 38 DEFE +36;3fp exit 
25D El FOF HL. 
2E5E 010500 LD EC+0005 
2661 A7 AND A 
2662 ED4Z2 SEC HL., EC 
2664 1840 JR +6432EfA6 
, 
2666 FDCE0176 ELIT 6) (IY+YFLACS) 
2564 2806 JR Z,+65$2E72 
2E6C0 110600 L.D DE,0006 
2E6F 19 ADD HL, DE 
2870 18E7 JR 23+$2E39 
, 
2672 ZAADSC LD HL.) (DEST) 
2E73 EDAEZZSGC LD EC, (STRLEN) 
279 FDCE3746 EIT 0, CIY+YFLAGX) 
27D 2030 JR NZ,+483 28 AF 
2E7F 78 L.D fos ES 
2E80 El OR e 
2881 C8 RET Z 
282 ES FUSH HL. 
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E7 

DS 

CS 

4 

3D 
q. 
3620 
EDES 
ES 
CDF12E 


CDC6ó62E 
Cc1 
El 
03 
03 
03 
C3E819 


JEDE 
2A4DSC 
As 


FS 


RST 
FUSH 
FUSH 
L.D 


CH) 920 


HL. 

2EF1 

Hi. 

HL, (SF) 

ñ 

HL,EC 

HL, EC: 
NCy+232E9E 
Es H 


HL 


HL. 
HL 
HL 
8, CHL.) 
HL 


fis DF 

HL, (CDESTI 
(HL) 

AF 
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2EC7 CDF12E CALL 
¿ECA EE EX 
2ECE 09 ADD 
26500 CU FUSH 
2ECD 2E DEC 
ZECE 224D35C LD 
2ED1 03 INC 
2ED2 03 INC 
2ED3 03 INC 
2ED4 2ZAS935C LD 
2ED7 2E DEC 
26D8 CDu3ló CALL 
2EDE 244D5C LD 
2EDE Ci POF 
2EDF CS FUSH 
2EE0 03 INC 
26£1 EDES L.DDR 
26E3 EE EX 
2EE4 23 INC 
28E3 Cl FOF 
Z2EE6 70 LD 
26E7 2E DEC 
2EE8 71 LD 
2E6E9 Fl FOF 
2EEA 2E DEC 
ZEEE 77 LD 
2EEC 24595 LD 
2EEF 2E DEC 
2EFO0 C9 RET 
y sacar un elemento de 
2EF1 2A6SS5C LD 
2EF4 2E DEC 
ZEFS 46 LD 
2EF6 2E DEC 
2EF7 4E LD 
2EFS 2E DEC 
2EF9 56 LD 
2EFA 2E DEC 
Z2EFE SE LD 
ZEFC 2E DEC 
2EFD 7E LD 
2EFE 22639350 1.D 
2Cc01 (9 RET 
; comando DIM 
2C0Z2 CDEZZS CALL. 
2003 C28A1C JE 
2008 CD3023 CALL 
2C0E 2008 JE 
2C0D CEEI RES 
2C00F CD962 CÁAL.L 
2012 CDEEJE CALL 
2015 39808 JR 
2017 C3 FUSH 
20c18 CDES819 CAL.L. 


ZEFIÍ 


EC 

EC 

EC 

HL, CÉLINE) 
HL. 

1633 

Hi. , (DEST 
40 


HL. , CELINE > 
HL 


la pila fver tambien ZAB1> 
HL.) (STKEND) 


Es (HL) 

HL 

C, (HL) 

HL. 

D), (HL) 

HL. 

Es CHL.) 

HL 

As (HL) 
(STKEND) , HL 


2862 
NZ,1C8BA 
2330 
NZ,+852015 
6,0 

2996 

1EEE 
C,+85201F 
EC 

1958 


134 


2018 CDES19 CALL. 19E8 


2cC1É Cl FOF EC 

201F CES SET 74€. 
2021 0600 LD E, 00 
2023 05 FUSH EC 

2024 210100 1L.D HL., 0001 
2027 CE71 EXT 6,2 
2029 2002 JE NZ+,+23202D 
202 2E05 LD 1,05 
202D EE EX DE, HL. 
202E E7 EST 20 

202E 26FF LD H,FE 
20231 CDCCZA CALL ZAcc 
2034 DAZO0ZA JE 0,2420 
2037 El FOF Hi. 

2038 CS FUSH E 

2039 24 INC H 

20C3A ES FUSH HL 

203E 60 LD H,E 
203C 69 LD L,C 
203D CDF42A CALL 24F4 
2040 EE EX DE, HL 
2041 DF RST 18 

2042 FEZC CF 223comma 
2044 28E8 JR Z+-245$202E 
2046 FEZ9 CF 2d 
2048 20EE JR NZ,-6932C053 
204A E7 RST 20 

2046 Cl FPOF EC 

2040 79 LD A,C 
204D 68 LD L,E 
204E 2600 LD H,00 
2050 23 INC HL 

2051 23 INC HL. 

2052 292 ADD HL. + HL 
2053 19 ADD HL. +, DE 
2054 DA1SiF JE C,1F15 
2057 DS FUSH DE 

2058 C5 FUSH CEC 

2059 ES FUSH HL. 

205A 44 LD E,H 
2C5E 4D LD CL 
205€ 2A5935C LD HL., CELINE ) 
205F ZE DEC HL 

20460 COSS1ló CALL. 1655 
20463 23 INC HL. 

20404 77 LO (HL A 
2063 Ci FOF EC 

2066 0E DEC EC 

20467 0E DEC EC 

2068 0E DEC EG 

2069 23 INC HL. 

2Cófn 71 LD (HL CO 
2C6ER 23 INC HL. 
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206606 70 LO (HALO, E 


206Db C1 FOF EC 

¿C6E 78 LD As E 

2CÓ6F 2 INC HL. 

2070 77 1.0 (HL A 
20671 62 LD Ha, 1 

2072 6E L.D LE 

2073 1€ DEC DE 

2074 3600 LD (HL.3,00 
2076 CE71 ELIT 6,1 

2078 2802 JE Za +23207C 
¿C7A 3620 11) (HL), 20 
¿070 Cl POP EC 

207D EDES LDDR 

207F (1 FOF EC 

2C80 70 L.D (HL ¿E 
2081 2E DEC HL. 

2082 71 LD (HL, 
2283 2E DEC HL 

2084 3D DEC ñ 

2085 20F8 JR NZ,-83207F 
2287 [9 RET 

, 

2088 CD1E2D CALL 2D1€ 
208 3F CcCF 

2C8cC D8 RET Cc 

¡ comprobar si se trata de un caracter altfabetico 
20C8D FE41 CF “A? 

2C8F 3F CCF 

2090 DO0 RET NC 

2091 FESE CF *Z2'+1 
2093 D8 RET e 

2094 FE61 CF tal 

2096 3F ccF 

2097 D0 RET NC 

2098 FEZE CF tz'+1 
209A [9 RET 

, 

2C9E FEC4 CF 043 “EIN” 
209D 2019 JR NZ,+2532CE8 
20C9F 110000 LD DE,0000 
2CA2 E7 RST 20 

2C0A3 D63i SUE 5 

2045 CE00 ADC 00 

2CA7 2004 JR NZ¿+1032CE3 
2049 EE EX DE, HL. 
2CAA 3F CccF 

2CAE EDSA ADC HL: HL 
2CA4D DAAD31 JE Cy BLAD 
2060 EE EX DE, HL 
2061 18EF JR =1732CA2 
, 

2C0E3 42 LD EsD 

¿24 4 LD C,É 
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2C0ES CIZ2EZD JE 2D2É 
: 


2CE9 FEZE CF ¿Ejperiod 
2CE6A 280 JR Z++139320CE 
¿CEC CD3EZD CALL 2D3E 

2CEF FEZE cF Z¿Esperiod 
20c1 2028 JR NZ,+4032CEE 
2003 E7 RST 20 

2004 CD1EZ2D CALL 2D1ÉE 

2007 BLE JR C),+3452CEE 
20C9 1804 JE +10;20D5 

, 

2CCE EZ RST 20 

2000 CD1IEZD CALL ¿D1E 

2CCF DASAIC JE C,1C834A 

2002 EF EST 28 

20CD3 A0 DEFE +1650 

20D4 38 DEFE: +56jfp exit 
2005 EF RST 28 

20D6 Ál DEFE +161 

2007 CE0 DEFE +1923store 0 
20D8 02 DEFE +2idelete 
20CD9 38 DEFE: +363fp exit 
2CDA DF EST 18 

2CDE CD222D CALL 2D22 

2CDE 380E JR C,+1132CEE 
2CE0 EF RKST 28 

2CEl1 E0 DEFE +2243qet 0 
2CEZ AS DEFE +164 

2CE3 05 DEFE +353divide 
2CE4 CO DEFE +i92;store 0 
2CE3S 04 DEFE +4;mu1tiply 
2CE6 0F DEFE +15$38dd 
2CE7 38 DEFE: +563fp exit 
2CE8 E7 RSsT 20 

2CE9 18EF JR -1732CDA 
soestionar la motacion cientifica con exponente 
2CEE FE4S CF tE” 

2CED 2803 JR Zy+332CF2 
2CEF FE6S cF E 

2CF1 C0 RET NZ 

2CF2 06FF LD E,JFF 

2C0F4 E7 RKST 20 

2CFS FEZE CF ZEsplus 
2CF7 2805 JR Z + 2CFE 
2CF9 FEZD CF 2¿Diminus 
2CFE 2002 JR NZ,+232CFF 
2CFD 04 INC E 

2CFE E7 EST 20 

2CFF CD1E2D CALL 2D1E 

2D02 38CÉE JE C+-5332CCF 
2004 C3 FUSH EC 

2D05 CD3E2D CALL 2D3E 

2D08 CDDSZ2D CALL Z2DD3 
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2D0E 
2D0C 
2D0F 
2D10 
2D13 
2D14 
¿D16 
2D18 


y comprobar de si 


201 
2D1D 
2D1É 
2D20 
2021 
, 
2D22 
2D25 
2D26 
2D28 
2D29 
2D2É 
2D2F 
2D30 
2031 
2D32 
2D33 
2D34 
2D37 
2D38 
2D39 
2D3A 
, 
2D3E 
2D3€ 
2D3D 
2D3E 
2D3F 
2D40 
2D43 
2D44 
2D45 
2D46 
2D47 
2D48 
2D49 
2D4A 
2D04D 


, 

2D4F 
2050 
2D31 
2053 
2D34 


2D35 


(C1 
DAAD31 
A7 
FAAD31 
04 
2802 
ED44 
C034F2D 


FE3O0 
De 
FE3JÁ 
3F 
9 


CD1E2D 
D8 
D630 
4F 
0600 
FD213A3C 
AF 

SF 

si 

48 

47 
CDE62A 
EF 

38 

A7 

C9 


CD7400 
18F1 


07 
0F 
3002 
2F 
30 


FS 


POR 
JE 
AND 
JE 
INC 
JR 
NEG 
JE 


CE 


INC 
FUSH 


EC 
C,31AD 
Á 


M,31AD 
E 
Z,+2;2D18 


204F 


se esta tratando algun elemento numerico 


*0'jzero 
C 
19*+1 


2¿D1É 

c 
*0'3zero 
CA 

E, 00 

IY , ERRNR 
A 

EJÁ 

D,C 

C,E 

EJÁ 

ZAE6 

28 
+5356;jfp exit 
A 


AF 

28 

+160 

+56ifp exit 


+1fexcha 
+164 
+4ímu1tiply 
+15jadad 
+56;fp exit 
0074 
-15+2D40 
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20536 
2059 
2D50 
205D 
2062 
2D64 
¿2D65 
2D66 
2D67 
2068 
2069 
¿D6A 
¿D4EÉE 
206 
2D46D 
2D6É 
2D6F 
2D70 
2D71 
2D73 
2D74 
2D75 


2D76 


2D77 : 


2078 
2079 
; 

2D7E 
2D7C 
2D7D 
2D7E 
, 

2D7F 
2D80 
2D81 
2D82 
2D83 
2084 
2D83 
2D86 
2087 
2088 
2089 
2D8A 
2D8E 
, 

2D8C 
2D8É 
2¿D8F 
2D91 
2D92 
2093 
¿094 
2D93 


219230 


CDO0E33 


LD 
CALL. 
RSsT 
DEFE 
JR 
FUSH 
REST 
DEFE 
DEFE 
DEFE: 
DEFE 
DEFE: 
DEFE 
DEFE 
DEFE 
DEFE: 
DEFE 


HL.) MEME OT 
350 

28 

+154 
NC++13532D71 
AF 


+193ístore 1 
+224ij8et 0 
+03 true 
+43mU1tiply 
+4m00tiply 
+313 ¡ump 
+t2idelete 
+Sidivide 
+2203qet 1 
+56+fp exit 
AF 
Z,+832D07ÉE 
AF 

28 

+493c0Py 
+4$m01tipl3y 
+S6jfp exit 
AF 

-2732D60 


28 
+2idelete 
+56jfp exit 


HL 
C, (HL) 
HL 
A», (HL) 


(HL>,00 
HL 
(HL C 
HL. 

AE 

C 
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CDE62ZA 
EF 


Cc 
CHILI A 
HL. 

A,D 

Cl 

» 
CHLI¿ A 
HL. 
(HL.3,00 
Hi. 


28 

+36jifp exit 
A), CHL.) 

Á 

Lito 2DAD 
28 

+162 
+135jadd 
+39 3 INT 
+5063fp exit 
28 
+2ídelete 
+56$fp exit 
HL 

DE 

DE, HL 

E, (HL) 

2D7F 


e 
rd 


. » 


m > DD 


6 


NNm>Mam> [o] 


op» 


+323literal 
+239 

+24 

+32 

+1534 
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+133 
+43mu1tiply 
+39 INT 
+56+Pp exit 
2DAZ 

Cc 

AF 

E 

E 

Zi+ 332051 
AF 


Ar 


28 
+49c00py 
+34j30 
+03 true 


+49C00py 
+3ujas0 
+03j true 
+13jazb 
+2iídelete 
+36jfp exit 
A,*0'3zero 
10 


HL, (3538) 
Lo 

10 

28 

+160 
+1933store 3 
+1i96?$store 4 
+197?store 
+2idelete 
+U6fp exit 


HL. 


28 

+4700py 
+39 31NT 
+194istore 
+3isubtract 
+226jet 2 
+1ifexcha 
+194$store 
+2idelete 
+36;fp exit 
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ZE0E 
Z¿E0C 
2E0D 
ZE0F 
2E12 
214 
2E13 
2Eló 
2£18 
219 


2E1E- 


Z2E1C 
ZELE 
2E1F 
2EZO 
2EZ1 
2EZZ 
2EZA 
2EZO 
2EZ6 
2E27 
2E28 
DEZA 
2EZD 
2EZE 
2E31 
2E32 
2E35 
2E36 
2E39 
2E3A 
2E3ÉE 
2E3C 
2£3D 
ZE3JE 
2E3F 
2€E40 
2E43 
2E44 
2E.47 
2E48 
2549 


2E4A 
2E4E- 


ZE tE 
2E4F 
2ES0 
ZE] 
2E3Z 
2ES3 
, 

Z¿ESÓ 
2E38 


ZESA 


0. yes 


3AACSC 
92 
32AC5C 
7A 
CD4F2D 
EF 


El 
CICFZE 


D680 
FE1C 
3913 


LD 
FUSH 


EXX 


Ay CHL) 

Á 
NZ,+7132E36 
2D07F 

E, 10 

As+D 

ñ 
NZ++632E1EÉ 
E 
2+4+932E24 
DIE 

Es 08 

DE 


DE 


+8732E7E 

28 

+226jqet 2 
+3063fp exit 
As, (HL) 

7E 

2DC1 

D,A 

A), (SCAC) 


+4953c0p3y 
+395 INT 
+193;store 1 
+33subtract 
+223$9et 1 
+56ifp exit 
2DD3 

HL. 

(3ScCAl),A 

A 


A 

A 

HL, 5CAE 
(HL)A 
HL. 

(HL) 
(HL A 
H. 

2ECF 


80 
10 
Es+193256F 
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2E5C CDC12D CALL ¿001 


ZESF D607 SUE: 07 
2E61 47 LD EJÁ 
2E62 21AC5C LD HL) 3GCAC 
265 86 ADD (HL) 
266 77 LD CHLIS A 
267 78 1.D Ay,E 
2E68 ED44 NEG 
2ESA CDAFZD CALL 204F 
2E6D 1892 JE “110528601 
, 
ZE6SF EE EX DE, HL. 
2E70 CDEAZF Cál.L ¿FEA 
2E73 D9 EXX 
2E74 CEFA SET 79M 
2E76 7D 10 fs L 
2E77 D9 EXX 
2E78 D6s0 SUE 0 
Z2E7ZA 47 LD ESÁ 
ZE7E CEZI SLA E 
2E7D CE12 RL. D 
2E7F D9 EXX 
2€E80 CE13 RL E 
2E82 CE12 RL D 
2E84 D9 EXX 
2E85 21AASC LD HL) SCAR 
2€£88 0E05 LD 2,05 
2E8A 7E LD A) CHL.) 
2E8E 8F ADC ñ 
2E8C 27 DAA 
2E8D 77 LD CHL)A 
2E8E 2E, DEC HL y 
2E8F 0D DEC c 
2E90 20F8 JR NZ,-8$2E8A 
2E92 10E7 DIJNZ -25$2E7E 
2E94 AF XOR á 
2E935 21ñA63€ LD HL, 3CA6 
2£98 11A15C LD DE+5CAÍ 
2E9E 06409 LD E', 09 
2E9D EDóF RLD 
2E9F O0EFF LD C,FF 
2EA1 EDAF RLD 
ZEA3 2004 JR NZ)+472LA9 
2EAS 0D DEC e 
2EAÓ6 00 INC E 
2EA7 2004 JR NZ,+1052EE3 
2849 12 LD (DEIA 
13 INC DE 
2 FD3471 INC CIY+YMEMET+23) 
. FD3472 INC CIY+YMEMET+26) 
0E00 LD C,00 
3 CE40 EIT 0, 
2801 JE Z¿+132EES 
23 INC HL. 
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1057 DJNZ “233 2EA1 


BAAESC LD As (SICA) 
:D DEDO SUE: 09 
¿E 3804 JR Cs+1032ECE 
FND3571 DEC CIY+YMEMET+25) 
3E 04 LD A,04 
FDEESEF CF (IY+YMEMET+ZI) 
Ya; 1841 JR +62 F0C 
$ 
2ECE EF RST 28 
¿ECC 02 DEFE +tiidelete 
SECO EZ DEFE +22b6jaet 2 
ZECE 38 DEFE: +36jfp exit 
2ECF EE EX DE, HL. 
2ED0 CDEAZF CALL 2 FEA 
2ED3 DS EXX 
2ED4 3ES0 LD A,380 
2ED6 95 SUE: L 
2ED7 2£E00 LD L.,00 
EDO CEFA SET 7,0 
¿EDE D9 EXX 
¿EDO CODDZF CALL. 2FDD 
2EDF FD7E71 LO As, CIY+YMEMET+25) 
2EEZ FE08 CE 08 
2EE4 3806 JR C,+632EEC 
2EE6 D9 EXX 
2EE7 CE1Z RL D 
ZEE9 D9 EXX 
ZEEA 1820 JR +3232F0C 
, 
ZEEC 010002 LD EC,0200 
2EEF 7E LD A,E 
2EF0 CDSEZ2F CALL 2F9E 
2EF3 5F LD EJAÁ 
2EF4 7A LD AD 
2EFS CD8SEZF CALL 2F9E 
2EF8 57 LD DA 
2EF9 CS FUSH EC 
ZEFA D9 EXX 
2EFE Cl FOF 0 
ZEFC 10F1 DJINZ -15$2EEF 
ZEFE 21A15C LD HL.,3CA1 
2F01 79 LD A,C 
2F02 FD4E71 LD C, CIY+YMEMET+25) 
2F035 09 ADD HL,EC 
2F06 77 LD (HL A 
2F07 FD3471 INC (TY+YMEMET+25) 
2F0A 18D3 JR -4332EDF 
, 
2F0C FS FUSH . AF 
2F0D 21A13C LD HL.) 3CÁA1 
2F10 FD4E71 LD C), CIY+YMEMET+23) 
2F13 0600 1.D E,00 
2F13 09 ADD HL,EC 
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2F16 41 LD EC 


2F17 Fi FOF AF 

2F18 ZE DEC HL. 

2F19 7E LD As, CHL.) 
2F14 CE0O ADC 80 

2F1C0 77 LD CHLI A 
2F1D AZ AND f 

2F1E 28053 JE Zi 2 F2O 
2F20 FEO0Á CE 0ñ 

2F22 3F CCF 

2F23 3008 JE NC,+832F2D 
2F23 10F1 DJINZ -15$2F18 
GE27 3601 LD CHILL, 01 
2F29 04 INC E 

2F2A FD3472 INC CIY+YMEMET+26) 
2F2D FD7071 LD (CIV+-YMEMET+2D,E 
2F30 EF KST 28 

231 02 DEFE +t2idelete 
2F32 38 DEFE: +5o6jPp exit 
2F33 D9 EXX 

2F34 El FOF HL. 

2335 09 EXX 

2F36 EDAEARESC LD EC) COICAE) 
2F3A 21A15C LD HL. S5SCAl 
2F3Db 78 LD AE 

2F3E FE099 CF 09 

2F40 3804 JR C,+452F46 
2F42 FEFC CF FC 

2F44 3826 JE C,+38$2F6C 
2F46 A7 AND ñ 

2F47 CCEF1IS CALL Z+15EF 
2F4A AF XOR A 

2F4E 20 SUE: E 

2F4C FAS22F JF M,2F352 
2F4F 47 LD EJÁ 

2F50 180€ JR +1272FS5E 
2F32 79 LD As¿C 

2F53 A7 AND A 

254 2803 JR Z+332F39 
2F56 7E LD A, HL > 
2F37 23 INC HL. 

2F58 0D DEC c 

2F59 CDEF1S CALL 135EF 

2F35C 10F4 DJNZ -1232F32 

2 FSE 79 LD A)C 

2FS5F A7 AND A 

2F40 C8 RET Z 

2F61 04 INC E 

2F62 3JEZE LD Aj/2Efperiod 
2F64 D7 EST 10 

2F465 3E30 LD A+ *0'"$zero 
2F67 10FE DJNZ -532F64 
2F69 41 LD E,C 

2Fóñ 18ÉE6 JE -2632F 32 
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+ 
, 


2F6C 


2F6D 
2FOE 
2F70 
2F73 
2F73 
¿F76Ó 
277 
¿F78 
¿F79 
2F70 
¿F7E 
2E7F 
2F81 
2¿F83 
2F8u 
2¿F86 
¿Fes 


+ 
? 


2FSE 
2F9C 
2F8D 
2F8F 
2F90 
2F91 
2F92 
2F93 
2F94 
2F95 
2F96 
2F97 
2F98 
2F99 
2F9A 
; 

2F9E 
2F9C 
2F9E 
2F9F 
2FA0 
2FAl 
2FA3 
2FAS 
2FA6 
2FA7 
2FAS 
2FAE 
2 FAC 
2FAD 
2FAE 
2FAF 
2FE0 
2FE1 


D7 

4% 

79 

Az 
F2B32F 
EDA4 
añ 
3EZD 
1802 
3EZE 
D7 
0400 
CIJEJA 


DS 
6F 
2600 
3D 
94 
29 


29 


CE7E 
CEFE 
ZE 
(8 
C5 


010500 


F,2F83 


2 A 
Ar2Dimiris 
+232F83 
As/¿Esplus 
10 

E, 00 

161E 


DE 
LiñA 
H,00 
EsL 
D,H 
HL, HL 
HL. 7 HL. 
HL., DE 
HL. + HL 
EC 
HL., DE 
C,H 
A+L 
DE 


As, HL) 
CHL>3,00 
Á 

Z 

HL 

7 y (HL) 
7, (HL) 
HL 


HL 
A, (HL) 
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00 


C, CHL.) 
EC 

HL. 

Cl, CHL 
HL 

Es CHL) 
DE + HL 
D¿A 

E, CHL.) 
DE 


E, (HL) 
AF 
HL 


(HL A 
=832FAF 
fi,C 

EC 

HL. 

AF 

C, CHL2 
HI 

Es CHL.) 
(HL A 
HL 

Asc 
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2FED 
2FEF 
2FF1 
2FF3 
2FF4 
2FFS 
2FF8 
2FF9 
2FFA 
2FFE 
2FFD 
2FFE 
2FFF 
3000 
3003 


, 
3004 
3003 
3006 
3007 
3008 


300% : 
3004 : 
3000 1 


300 
300€ 


, 

300F 
3010 
3013 
3014 
30153 
3016 
3018 
3019 
3014 
301E 
301€ 
3010D 
301E 
301F 
3020 
3021 
3022 
3023 
3024 
3023 
3026 
3027 
3028 
3029 
302A 
302É 
3020 


CEJA 
CEE 
10F2 
ci 
DO 
CD0430 
20 
D9 
AF 
200 
37 


110000 
29 


-1432FES 
EC 

NC 

3004 

NZ 


ñ 
1,00 
DsA 
EsL 


DE,0000 


E 
NZ,+15300D 
D 


DE, HL. 
346É 
DE, HL 
A+ (DE) 
(HL) 
NZ,+38;303E 
DE 

HL. 

HL. 

HL. 

E, (HL) 
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302D CE00 ADC 00 


302F 200E JR NZ),+115303C 
3031 9F SEC ñA 

3032 77 LD (HD, A 
3033 23 INC HL 
3034 73 LD CHLOE 
30339 23 INC HL 
3034 72 LD CHLI,D 
3037 ¿E DEC HL 
3038 ZE DEC HL 
3039 ¿E DEC HL 
3034 D1 FOF DE 
303 (9 RET 

, 

3030 2E DEC HL. 
303D Di FOF DE 
303 CD9332 CAL.L 37293 
3041 D? EXX 

3042 ES FUSH HL 
3043 D? EXX 

3044 Dú FUSH DE 
3043 ES FUSH HL 
3046 CDIEZF CALL. 2F9E 
3049 47 LD ESÁ 
3040 EE EX DE, HL 
304 CDOEZF CAL 2F9E 
304E 4F 1.D C+f 
304F E8 CF E 

3050 3003 JR NC++33300953 
3052 78 LD AE 
3053 41 LD E,C 
3054 EE EX DE), HL 
3055 FS FUSH AF 
3054 90 SUE: E 

3057 CDEA2F CALL 2FEA 
3054 CDDDZ2F CALL 2FDD 
305 Fi FOF AF 
305E El FOF HL 
305F 77 LD (HL), A 
3060 ES FUSH HL 
3061 48 LD L,E 
3062 61 LD H,C 
3063 19 ADD HL ,DE 
3064 D9 EXX 

30635 EE EX DE , HL 
3066 EDAÁ ADC HL, EC 
3068 EE EX DE), HL. 
3049 7C€ LD AsH 
3064 8D ADC L 

306E 4F LD L,A 
3060 1F RRA 

306b AD XOR L 

306É D9 EXX 

306F EE EX DE, HL 


3080 


30d8F < 


3090 
3091 
3092 
3093 
3093 
3096 
3097 
3098 
309A 
309C 
309D 
309E 
309F 
3042 
3043 
3044 
30453 
3046 


y 
3049 
3DAA 
30AC 
30AD 
30AÉ 
301 
3062 
3084 
3056 
30E7 
3059 


30ÉA ; 


El 

1F 
3008 
3.01 
CDDD2F 


D9 


AF 
033931 


Hi 


NC,+8$307C 


fi 01 


ZFDD 
(HL) 
Z1+333309F 


Asl 
80 


HL. 

(CHLIS A 

HL 

Zi +31530863 
Ay E 


E ? f3 


As D 
00 
DsA 
Ay E 
00 


Esñ 
As,D 


00 
NC) +733043 


(HL) 
Z,31AD 


DÁ 


Á 


3153 


HL. + HL. 
C,+10330E6EÉ 
Cc 


NC,+35330EC 
HL, DE 
C,+2330É5EÉ 
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30C 
306É 
3056F 


, 

3000 
3003 
3004 
3005 
3006 
3008 
3009 


+ 
30C0A 1 


30CE 
300 
30CE 
30CF 
3000 
3001 
3004 
3005 
3006 
3007 
30DAÁ 
30DE 
3000 
3000 
30DEÉ 
30£1l 
30562 
30563 


10F3 
C1 
9 


CNE934 


78 


E1 
cDA930 


cDco30 
D8 


CDEAZF 


DJNZ 
FOF: 
RET 


CALL 
RET 
INC 
XOR 
SET 
DEC 
RET 


LD 
Or 
JE 
FUSH 
FUSH 
FUSH 
CALL 


-1333061 
EC 


34E9 
C 

HL. 
(HL) 
7, HL.) 
HL 


fi, (DE) 

CHILL) 
NZ)+345330F0 
DE 

HL. 

DE 

¿2D7F 

DE, HL. 

HL, (SF) 


EC 


HL 
Cs,+10330EF 
A,D 

E 
NZ,+1530EA 
C,A 

2D8É 

DE 


DE 


HL 


DE 
DE, HL 
30C0 
DE, HL 
C,+903313D 
HL 
2FEA 
151 


1F 


AsJE 
ñ 


HL. + HL 


HL. 
HL, HL 


EsZ2il 
+1733125 


NC>+55311E 
FIL. , DE. 


Hi. +, DE 


-28$3114 
DE, HL 


DE, HL 


NZ,+153135 
Á 
Á 


F,3146 


NC>,+104531AD 


Á 

Á 
NZ,+833151 
C,+633151 


7+D 


NZ,+92331AD 
(HL A 


152 


3152 
3153 
3154 
3155 
3157 
3158 
3159 


3155 : 


315D 
315€ 
315F 
3160 
3163 
3164 
3165 
21467 
3168 
3169 
3164 
316€ 
316É 
316F 
3171 
3172 
3174 
3175 
3177 
3179 
3174 
3170 
317E 
317F 
3180 
3182 
3184 
3186 
3187 
3189 
318cC 
318E 
318F 
3191 
3192 
3193 
3195 
3196 
3197 
3198 
3199 
3194 
3195 
319€ 
319D 
319F 


CDFEZF 
07 

77 
382E 
eS 

77 

ZE 


1829 


109 


As+E 


NC), +215316€ 
A, CHL) 
Á 


A,80 
Zy+t15315E 
Á 


D 
2FFE 


(HL) A 
Cs+4633195 
HL. 

(HL) A 

HL. 
+4153193 
E,ZO 


7 +0 
NZ,+18:3186 


E. 
D 


E 
D 


(HL) 
Zy-415$3159 
-22$316E 
-+41533150 
NC,+12331953 
3004 
NZ,+733195 
D,80 

CHL) 
Zy+24531AD 
HL 

HL 

DE 


EC 
A,E 


(HL) 
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3140 
31A1 
31AZ2 
31A3 
3144 
3143 
31A6 
3147 
3118 
3149 
3144 
31AE 
31AC 


, 
314AD 
31AÉ 
31AF 
316Z2 
3163 
314 
317 
3169 
3164 
31ED 
31EÉ 
316F 
3100 
3101 
312 
3103 
3106 
3107 
3108 
31092 
31CA 
31CE 
3100 
31CD 
31CE 
31D0 


? 

31D2 
31D3 
31D3 
31D6 
31D8 
31DA 
31DE 
31DC 
31DD 
31DF 
3180 
31E2 
31£4 


77 
23 
71 
23 
72 
23 
73 
£1 
D1 
D9 
El 
19 
(9 


CF 

05 
CD9332 
EE 

ar 
CNCO30 
38F4 
EE 
cDC030 
Ds 

D9 

ES 

D9 

DS 

ES 


CDEAZF 


EXX 
FUSH 
EXX 
FUSH 
FUSH 
CALL 
EXX 
FUSH 
LD 


08 

+5Simumber too big 
3293 

DE, HL 

A 

30C0 

Ss 12331AD 

DE), HL 

30Cc0 

C 


E 
HL + HL 
HL, HL 


C,+16:331F2 
HL, DE 


154 


3183 
3187 
318 
31EA 
316É 
31EC 
31ÉEÉ 
31EF 
31F0 
; 

312 
31F3 
31F5 
31F6 
31F9 


31F9 < 


31FA 
31FE 
31FE 
31FE 
3201 


3202: 


3203 


3204: 


3203 30 
3206 Fl 
3207 CEL 
3209 Fl 
320 CEIS 
320C D9 
3200 (1 
3206 El 
320F 78 
3210 91 
3211 C33D31 
? 

3214 7E 
3213 A7 
3216 (8 
3217 FES1 
3219 3006 
3216 3600 
321D 3E20 
321F 1831 
, 

3221 FE91 
3223 2014 
3223 23 
3226 23 
3227 23 
3228 3E80 
3224 ñé6 
3225 2E 
3220 E6 


04 


JE 
FUSH 


E 


HL. + DE 


NC++139531F9 
HL. , DE 


HL, DE 


f 
+8331FA 


5 
HL. , DE 


HL. +DE 


E 

M,31DZ 

Ar 
Zica1dicadE2 
ESA 

DIE 


E,C 
D¿E 
Ar 

E 
E: 


EC 
Hi. 
A, E 
c 
313D 


fs CHL.) 

Á 

Z 

8l 

NC», +653221 
(HL3,00 
A,20 
+815$3272 


91 


NZ,+26$323F 
HL. 
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322D 2E DEC HL 

322E 2003 JR NZ+/+33233 
3230 3E80 LD 4,80 

3232 AE XOR (HL) 

3233 2E DEC HL. 

3234 2036 JE NZ¿+5433260 
3236 77 LD (HL A 

3237 23 INC HL. 

3238. 36FF LD (HL) FE 
3234 2E DEC HL. 

323€ 3518 LD A+ 18 

323D 1833 JR +31$3272 

, 

323F 302 JE NC), +445326D 
3241 D3 FUSH DE 

LAR ZE CFL 

3243 0691 ADD 91 

3245 23 INC HL. 

3246 36 LD Ds, HL) 

3247 23 INC HL. 

3248 UE LD Es CHL) 

3249 2E DEC HILL 

3244 2E DEC HL. 

3RAE 0600 LD Cs+00 

324D CEZA EXT 72D 

324F 2601 JR Lo AZ 
on DEC C 

232 CEFA SET 7D 

0608 LD Es 08 

50 SUE E 

80 ADD ES 
3804 sE Est RSE 
JA L.D Es 

5E 1600 LD D,00 


E 2807 JE Zy+7 33267 
47 LD EsA 

CESÁ SEL D 

CElÉE RR E 

10FA DIJNZ 633261 
CO8EZD CALL ¿D8E 

D1 FOF DE. 


326C 7E LD A, (HL) 
326D D6SA0 SUE A 
326F FO RET P 
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327A 
327 
327É 
3280 
3281 
3283 
3283 
3287 
3288 
3284 
3280 
3Z8ÉE 
a28F 
3290 
3291 
LP 


, 

3293 
3296 
DL 
3278 
3499 
ZA 
329 E 
329EÉ 
329 F 
32A0 
32ñA1 
IZLAZ 
32LA3 


ZAS. 


3249 
IZA 
32AE 
3ZAD 
32AE 
3ZAF 
3251 
3262 
3263 
324 
3256 
328 
3IZEAÁ 
3ZEC 
3ZED 
32EE 
32EF 
3200 
3201 
32C2 
3203 


CE38 
2803 
3600 
ZE 

10FE 
E607 
2809 
47 

JEFF 


(17 
2008 
EG 


q pa 


FUSH 
CALL 
XOR 
INC 
LD 
DEC 
L.D 
LD 
LD 
AND 
JE 


OR 


E 
Z,+333283 
(HL3,00 
HL. 
-33327É 
07 
Z)+953290 
EJA 

A¿FF 

A 

-“4+328A 
(HL) 
CHLIS A 
DE + HL 

DE 


3296 
DE, HL. 


Pi CHILL) 


f 

NZ 

DE 
¿D7F 

ñ 

Hi. 
(HL A 
Hi. 
(HL A 
Es91 


fi 
AZ +87 3251 
E 

EsD 
Z+1633ZED 
D,E 

EJE 

E,89 

DE + HL 

E 

HL, HL 
NC+-4532E2 
C 

H 

L 

DE, HL 

HL 

(HL E 

HL 

(HL)9D 

HL 

CHLI ¿E 

DE 
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3204 


» 
Al 


3205 006000 
3208 4000001 
320C 3000 

32CE F1490FDAAZ 
32D3 40500004 
sola 


se 


2207 
32DE 
32DF 
32E3 
32E7 
32EE 
BZEF 
32F3 
3LEZ 
32 FE 
3ZEF 
3303 
3307 
3305 
330F 
3313 


C9 


RET 


DATUS (se omite su codificacion> 
; tabla de constantes 


¿Zero 
¿one 
¿half 
$Ppi/2 
¿ter 


tabla de funciones 


; indexa mediante 
$ RST 28 (up to hex 3 


8F363034 
Aa1330F30 
cCA3s0Ar3l 
31381635 
2A3GUSENO 
BESUIESS 
3E3S33E3S 
3351430 
2033335 
3E3 130 
E3SN3IN3I0 
3339035 
DESSECIA 
435364634 
O936NDEIS 
7ABOÓLDIIZ 
af37DA37 


33384338 
ar de 


C4364AF36 
4389234 


E 44344034 
AN 


24334 
1F 360933 
01350033 


: A03648636 


C6337A36 
e 06433F934 
3347 9368337 
334E 14324233 
334F 4F2D9732 
3353 49341E34 
3337 2D340F34 
y calculador de 
335€ FFCALC* 
335E CDEF3S 
335E 78 
3335F 32673€ 
3362 D9 
3363 E3 
3364 D9 
3365 EDI36S3C 
3369 D9 


los siquientes 
8) 
DEFRN 368F,3430 
DEFN 3341,300F 
DEFN 30CA,31AF 
DEFN a 
DEFN 3024433 
DEFN 393,3 
DEFN 353 
DEFY 9536, 3014 
DEFN 
DEFN 
DEFN 
DEFN 
DEFN E 
DEF 145, 3468 
DEFN 3669 ¿NUDE 
DEF 230743753 
DEFN 37Añ+37DA 
DEFN 3633, 3843 
DEFN 375213713 
DEFN 3604,364F 
DEFN 3844+13492 
DEFN 346 ARCE 
DEF 34AD IAE 
DEFH 3641F,3509 
DEF 3901,3300 
DEFN 3640 ,3686 
DEFN 33C06,+367A 
DEFN 3306),34F9 
DEFN 369E,3783 
DEFN 3214,33A2 
DEFN 2D4F,3297 
DEFN 3449,341E 
DEFN 342D,3%40F 
coma flotante 
CALL GEF 
LD AE 
LD CEREGI))A 
EXX 
EX HL), (SF) 
EXX 
LD (STKEND) ,DE 
EXX 


de 
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la calculadora 


valares de byte 


3364 7E LD A, CHL) 


334E 23 INC HL. 

3360 ES FUSH HL 

336D 47 AND Á 

336E F28033 JE F,3380 
3371 37 LD : D,Á 

3372 E660 AND 60 

3374 0F RECA 

3373 0F RECA 

3376 0F RECA 

33877 0F RECA 

33768 167 ADD 7C 

3374 6F LD LA 

337E ZA LD A,D 

3370 E61F AND 1F 

337€ 180 JE +14,338E 
,) 

3380 FE18 CF 18 

3382 3008 JR NC,+83338C 
3384 D? EXX 

3385 01FEFF L.D ECIFFFE 
33838 34 10 D,H 

3389 3D LD EsL 

3384 09 ADD HL, EC 
339E D? EXX 

3360 07 RLCA 

338D 4F L.D LA 

238É 110732 LD DE+32D7 
3391 26006 1.0 Hs, 00 
3393 19 ADD HL, DE 
3394 SE L.D Es CHL) 
3393 23 INC HL. 

3396 56 LO D, CHI.) 
3397 216333 LD HL, 3363 
3394 EX EX HL.) (SF) 
33%E DS FUSH DE 

3390 D? EXX 

339D ED4E6653€ LD EC), (3066) 
33A1 (9 RET 

, 

3342 Fl FOF AF 

33A3 3A6730 LD Ay (EREG) 
3346 D?9 EXX 

33A7 1803 JR -613336C 
, 

3349 D5 FUSH DE 

3344 ES FUSH HL 

33AE 0105300 LD EC,00053 
33AE CDOS1F CALL 1FOS 
33Ei El FOF HL 

3362 Di FOF DE 

33E3 C9 RET 

? 

3364 EDSE6S3SC LD DE, (STKEND) 
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.33E8 CDC033 CALL 33C0 
33EE EDS3633C LD (STKEND) ,DE 
335F C9 RET 


, 

3300 CDA933 CALL 3349 
32303--EDE0 LDTIR 

3305 09 RET 

) 

3306 62 L.D Hs+D 
3307 6E LD LE 
3308 CDA933 CALL 3349 
33C0E 09 EXX 

3300 ES FUSH HL. 
330D 109 EXX 

33CE E3 EX HL, (5F) 
33CF (5 FUSH EC 
3300 7E LD fis CHL.) 
3301 E600 AND Co 
333 07 RLCA 

33D4 07 RLCA 

33DS 4F LN Crñ 
33D6 0 INC C 

33D7 7E LD fs OHIL) 
3308 E463F AND 3E 

33DA 2002 JE NZ+,+233DE 
33DC 23 INC HL. 

33DD 7E Mp) As CHL.) 
33DÉE C£30 ADO 0 

33£0 12 LD (DEA 
33E1 3£03 LD +03 

33E3 91 SUE | 

33E4 23 INC Hi 

33ES 13 INC DE 

33E6 0600 LD E ¿00 

33£8 EDE0 LDIR 

33EA C1 FQF EC 

IGEE ES EX HL.) (SF) 
33EC D9 EXX 

33ED El FOF HL. 


33F3 12 LD (DEA 
33F4 13 INC DE 
33F35 18FA JR -6$33F1 


33F7 A7 AND Á 

33F8 C8 RET ya 

33F9 FS FUSH AF 

33FA DS FUSH DE 

33FE 110000 LD DE,0000 
33FE CDC833 CALL 3308 
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3401 
3402 
3403 
3404 


, 

3406 
3407 
3408 
3409 
3404 
3406 
340D 
340E 


? 
340F 
3410 
3413 
3416 
34192 
3414A 


7 

341 
3410 
3410 
341 
341F 
3422 
3423 
3426 
3429 
3AZA 
ACE 
3420 


, 
342D 
342É 
342F 
3432 
3433 
3436 
3439 
343A 
343E 


, 
3430 
343E 
343F 
3440 
3441 
3442 
3443 
3444 
3445 
3447 


0600 
09 
19 


DS 
Z2A685C 
CD0634 
0DCO33 
El 
1.9 


6 
6É 
19 
ES 
210332 
D9 
CDEZII 
cDC0833 
D9 


2463830 
000634 
ERE 

CDCO033 


DE 

AF 

Á 
-14533F8 


CsÁ 


C 

CA 
E, 00 
HL, EC 


DE 

HL., (MEM) 
3406 
3300 

HL 


H,D 
L,E 


HL. 
HL+3205 


33F7 
3308 


HL. 


HL. 

DE, HL 
HL... (MEM) 
3406 

DES HL 
33C0 
DE + HL 

HL 


E,0S 

A+ 1DE) 
C+, (HL) 
DE, HL 
(DE,A 
(HL>,C 
HL 

DE 
-95$343E 


DE), HL. 
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3448 


, 

3449 
3444A 
344D 
34350 
34501 
34302 
3435 
3436 


3409: 


3405 
3450 
3960 
3461 
3464 
3465 
3447 
3448 
3464 
346 


5 
346ÉE 
2471 
3472 
3474 
3473 
3476 
3478 
3479 
3474 
3470 
3470 


347 EA 


347F 
3480 
34861 
3482 


, 

3483 
3484 
3483 
3488 
3489 
348A 
348E 
3480 
348D 
3490 
3491 


) 

3492 
3493 
3496 


c9 


47 
CDSE33 
310FC0 
02 
A0 
C231E0 


04633 
ED6233 
DF 
010202 
33 
EEE1 
03 
3809 
04FF 
1806 


CDES34 
De 
0600 
7E 

A7 
¿80 
23 

78 
E6830 
ES 


ES 
CD7F2D 
El 


CDE934 
D8 
DS 


CALL 


EJÁ 
335€ 
SF,CO00F 
(ECIIA 
E 
NZ,E031 
Es 
F0,03C1 
C)-51;3428 
33 

3262 


EC) 0202 


E, FF 
+433474 


34E9 
l 
Es 00 

fs CHL.) 

ñ 
Z3+1133483 
HL. 

sE 

80 

CHL.2 


(HL A 
HL. 


DE 
HL. 
2D7F 
HL 
AE 
C 


C,A 


¿D8E 
DE 
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3497 110100 LD DE,0001 


349A 2: INC HL 
349E CE16 RL (HL) 
349D 2E DEC HL 
349E 9F SEC Á 
349F AF LD CA 
3440 CD8E2D CALL 2D8E 
3443 D1 FOF DE 
3444 C9? RET 
+ 
, 
3445 CD991E CALL. 1£99 
3448. ED78 TIN A, (CT) 
3444 1804 JR +4334E0 
344C CD991E CALL. 1£99 
34AF 0ñA L.D A+, (EC) 
3460 C3282D JE 2028 
, 
343 CD991EÉ CALL 1599 
346 212E2D LD HL. +, 2D2E 
3469 ES FUSH HL. 
34EAa CS FUSH EC 
MEE (9 RET 
, 
34EC CDF1IZE CALL Z2EFI 
IF 0E DEC EC 
78 LO Ay ÉE 

1 El OR C 

A ROAZO JE NZ ¿+30 34E7 
3404 14A LD A+ (DE) 
34038 COSDZC CALL 20280 
2408 3809 JE Cs +9734D3 
34CA D420 SUE $0 
340€ 3819 JR Ls +23 34 E7 
B4CE FElLS CP 15 
34D0 3015 JE NC++21334E7 
3402 3C INC ñ 
3403 3D DEC ñ 
3404 87 ADD A 
3405 87 ADD A 
34D6 87 ADD Á 
3407 FEAE CF AS 
34D9 300€ ES NC)+12534E7 
34DE ED4E7E5C LD EC, CUDG) 
34DF 81 ADD Cc 
34E0 4F LO CA 
34Ei 3001 JR NC,+1334E4 
34E3 04 INC E 
34E4 C32E2D JE 2D2E 
, 
34E7 CF RST 08 
34E8 09 DEFE +97$irnv arqumernt 
) 
34E9 ES FUSH HL. 
34EA CS3 FUSH EC 
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MEE 47 LD EJA 
34EC 7E LD As (HL) 
34ED 23 INC HL 
34EE E6 OR (HL) 
34EF 23 INC HL 
34F0 E6 OR (HL 
34F1 23 INC HL. 
34F2 E6 OR CHILL.) 
34F3 78 LD AE 
34F4 11 POF EC 
34F3 El FOF HL. 
34F6 [0 RET NZ 
34F7 37 SF 

34F8 (9 RET 


, 

34F9 CDE934 CALL. 34E9 
34FC D8 RET l 

34FD 3EFF LD A, FF 
34FF 1806 JR +6$3307 
3501 CDE934 CALL. 34E9 
3504 1805 JR +3 3390É 
3506 AF XOR Á 

3507 23 INC HL. 

3506 ÁE US CHILL) 
3509 ZE DEC Hi. 

3504 07 RLCA 

350 ES FUSH Hi. 

3500 3800 L.D is, 00 
35DE 77 LD CHLIS A 
350F 23 INC HL. 

1) CHILI A 
INC Hi. 


LD CHLIS A 


INC HL. 
LD HL A 
INC HL. 
LD CHLIA 
POR HL. 


$ 

351 EE EX DE, HL. 
3510 CNE934 CALL 3459 
351F EE EX DE, HL 
3320 D8 RET L 

3521 37 SCF 

3522 18E7 JR “25,350 


, 

3524 EE EX DE, HL 
3525 CDE934 CALL 34E9 
3528 EE EX DE, HL 
3529 DO RET NC 
352A A7 AND A 
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3337 1€ 
3538 12 
3539 D1 
353 (9 

, 

353 78 
3530 D608 
393E CES97 
3540 2001 
3542 3D 
3343 0F 
3544 3008 
ea a da 
3547 ES 
3548 CD3C34 
394E D1 
3940. EB 
32D 4 
394E CES7 
3350 2007 
3302 OF 
39539 FS 
33554 CDAFSO 
35957 1833 


0rF 


ES 


SE CDF1IZE 


3393 F 
3360 
3363 
3364 
3063 
3566 
3567 
3368 
IÓ 
336ÉE 
336 
336E 
356F 
3370 


3372 


ERECA 
FUSH 
CALL 


(DEJA 
DE 


AyE 

08 

2h 
NZ,+1:33543 
Á 


NC+,+85334ÉE 
AF 


ZA 
NZ++753009 


AF 
300F 
+5133580 


HL.) (SF) 

Ay E 
NZ,+1133373 
C 

EC 
Z+9453372 


3573 1813 JR +1933588 


, 

3975 El OR E 

3576 280D JR Z,+13;339893 
3578 14A LD Ay (DE) 
3379 96 SUE: (HL) 

357A 3809 JR 0,+933383 
3570 20ED JR NZ,-193356€ 
357EÉ 0E DEC EC 

357F 13 INC DE 

33580 23 INC HL. 

3981 ES EX HL. y CSF) 
3582 2E DEC HL. 

3583 18DF JE 3373364 


; y 
35835 C1 FOF EC 

3586 Fl FOF AF 

3587 A7 AND ñ 

3588 FS FUSH AF 

3389 EF RST 28 

3584 A0 DEFE +160 

358E 38 DEFE +6 fp exit 
3580 Fi FOF AF 

358D FS FUSH AF 

358E DC0135 CALL. 0,3301 

3591 Fi EOF AF 

3092 FS FUSH AF 

3593 D4F934 CALL NC+,34F9 
3596 Fl EGP AF 
23597 0F RECA 

3598 D40135 CALL NC+/3501 
359E C9 RET 

, 

3590 CDFIZE CALL. 2EF 1 
35%F DS FUSH DE 

35a0 Cs FUSH EC 

3541 CDFIZE CALL. 2 EF 1 
3544 El EOF HL. 

35039 ES FLUSH HL. 

3546 05 FUSH DE 

3547 US FUSH EC 

3548 09 ADD Hl.+ EC 
359 44 1.0 EH 
354Aá 4D LD Cs L 
3SAE F7 RST 30 

3SAC CDEZZÁ CALL ZARZ 
3SAF C1 FOF EC 

3560 El FOF HL. 

35€1 78 LD AyE 
3562 El OR C 

33563 2802 JR YA 
3563 EDE0 LDIR 

3567 Cl FOF EC 
3568 El FOF HL. 
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35E9 78 LD AE. 
356A El OR (0 
35€6E 2802 JR Z +2RIIDEF 
356D EDE0 LDIR 
3SEF 2M655€C LD HL) (STKEND) 
3502 11FEFF LD DE,FFFE 
33505 ES FUSH HL 
3506 19 ADD HL. , DE 
3507 Di FOF DE 
3508 (9 RET 
, 
3509 CDDS2D CALL 2005 
35C0C 380E JE C),+14$35DC 
35CE 200€ JR NZ,+12335DC 
335D0 FS FUSH AF 
35D1 010100 LD EC>,0001 
35D4 F7 RST 30 
3505 Fl FOF AF 
35D6 12 LD (DEJA 
357 CDEZZA CALL ZAR 
35DA EE EX DE, HL. 
335DE (9 RET 
) 
35DC CF EST 08 
35DD DA DEFE +10sint out of ranas 
LD HL), (CHADD) 
FUSH HL. 
LD ay E 
ADD ES 
3 SEC A 
INES ES FUSH AF 
¿ E7 CDF1IZE CALL 2EFI 
ISEA DS FUSH DE 
3SEE- 03 TNC EC 
35SEC F7 EST 30 
35ED El FOF HL. 
3SEE EDS3ISDSC LO (CHADD) ¿DE 
352 05 PUSH DE 
35F3 EDEO LOTR 
3905 EE EX DES HL. 
3SF46 ZE DEC HL. 
357 3600 LD (HL, 0D 
35F9 FDCE01E6E RES 7) CAVA YFLAGS) 
35FD CDFEZA CALL SAFE 
3600 DF RKST 18 
3601 FEOD CF CR 
3603 2007 JR NZ,+753600 
36035 El FOF HL 
3606 Fl FOF AF 
3607 FDAE0I1I XOR (IY+YFLACS) 
3604 E640 AND 40 
360C C28A1C JE NZ,1C8A 
360F 225D5C LD (CHADD) , HL 
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3612 FDCE01FE SET 7 y (IY+YFLAGCS) 


3616 CDFEZ24 CALL 24FE 

3619 El FOF HL 

3614 223D3C LD (CHADD) , HL 
361D 1840 JR =9633EF 
, 

361F 010100 LD EC,0001 
3622 F7 RST 30 

3623 223E5C LD (KCUR) , HL 
36726 ES : FUSH HL 

3627 2AS135C LD HL, (CURCHL 2 
3624 ES FUSH HL 

342E 3EFF L.D A, FF 

362D CDOllé6 CÁLL SELDEV 
3630 CDE32D CALL 2DE3 
3633 El FOF HL. 

3634 CD1316 CALL 16153 

3637 D1 FOF DE 

3638 ZAÁJESC LD HL, (KCUR) 
363E A7 AND ñ 

3630 EDIZ SEC HL + DE 
363E 44 LD EsH 

363F 4D L.D CsL 

3640 CDEZZA CALL ZAEZ 

3643 EE EX DE. , HL 
3644 (9 RET 

E 

3645 CD941EÉ CALL 1E94 

3448 FE1O CF 10 

3644 D29F1E JE NC+1É9F 
3640 ZALISC L.D HL. + CCURCHL 2 
3650 ES FUSH HL. 

3631 CDO0l1l6 CALL SELDEV 
3654 CDEG61S5 CALL SLOTIF 
3657 010000 LD EC,0000 
3654 3003 JE NC++33365F 
36350 0 INC C 

363D F7 RST 30 

36SE 12 LD (DEJA 
365F CDEZZA CALL. 2A82 

3662 El FOF HL. 

3663 CDIS16 CALL. 1615 

3666 CIEFI3S JE 39EF 

, 

3669 CDF12E CALL Z2EFI1 

366€ 78 LD As, E 

3660 El OR C 

366€ 2801 JR Z,+153671 
3670 14A LD A)» (DE) 
3671 C3282D JE 2D28 

, 

3674 CDF12E CALL 2EF1 

3677 C32E2D JE 2D2E 

, 
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367A 
367E 
3670 
367F 
3680 
3681 
3483 
3684 
3685 


, 

3686 
3687 
3688 
3689 
368A 
368E 
368€ 
3680 
368EÉ 


, 

368F 
3690 
3691 
3692 
3693 
3694 
3693 
3697 
3698 
3499 
369%ñ 


, 
367€ 
369T 
3690 
369EÉ 
369F 


, 
360 
3651 
36ñAZ2 
3643 
3644 
3645 
36A6 
36N7 
36A8 
3649 
ISA 
364E 
34AT 
36D 
36AE 


? 


HL 
HL), EREG 
(HL) 

HL 
NZ,+453687 
HL. 


E, (HL) 
a,É 


ñ 
DIA 
HL ¿DE 


NZ ,-1733686 


Hi. 


AF 


HL), (SF) 


28 
+1i9Zistore 
+2¿jdelete 
+493c0py 
+224i6t 0 
+5jd4ivide 
+39 3 INT 
+224;3et 0 
+lifexcha 
+192istore 
+4 imultiplsg 
+3jsubtiraci 
+2243qet 0 
+36;3fp exit 
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0 


364AF EF RST 28 


36E60 31 DEFE +49ic0p3y 
3661 36 DEFE: +54382%0 

36E2 00 DEFE +03j true 
3663 04 DEFE: +4 

3664 3A DEFE +58$triunmcate 
36E3 38 DEFE: +563fp exit 
3666 C9 RET 

s lista de funciones de coma flotante 
3667 31 DEFE +49 c0PY 
35E8 3AÁ DEFE: +58 jtruncate 
36E9 C0 DEFE: +1923store 0 
3GEA 03 DEFE: +3isubtract 
36EE E DEFE +224jget 0 
3660 01 DEFE +1ijexcha 
36E5D 30 DEFE +483NOT 

366É 00 DEFE +03j true 
36EF 03 DEFE +3 

36C0 Al DEFE: +1461 

3601 03 DEFE +3jsublract 
3602 38 DEFE +56j3fp exit 
3603 C9 RET 

) 

3604 EF RS 28 

36035 3D DEFE +ó6ljrestack 
3604 34 DEFE +52$literasl 
3607 F1I3BAA3E DEFE +241,+536++170,+59 
36CE 2 DEFE +41 

3602 04 DEFE +4imu1tiply 
360D 31 DEFE +49 3c00p3 
B64CTE 27 DEFE +39 int 

36CF 3 DEFE +195jstore 3 
34600 03 DEFE +3isublract 
346D1 31 DEFE: +49 $c0py 
36D2 0F DEFE +15jadd 

3403 Al DEFE +161 

3404 03 DEFE +3iísublracit 
3605 88 DEFE +136 

36D4 1336 DEFE +19,+504 

3608 5865366 DEFE +88,+101,+102 
36DE 90786340 DEFE +157,+120,+101,+64 


36DF AZ603209 DEFE +162,+96,+30,+201 
36ÉE3 E721F7AF DEFE +231,+33)+247+1753 


36E7 24 DEFE +26 

368 EEZFEOEO  DEFE — +235,+47,+176,+176 
26EC 14 DEFE +20 

36D EEJEBE94. DEFE  +238,+126,+187,+148 
36F1 38 DEFE: +88 

36F2 F13A7EFS DEFE: +241,+58,+126,+248 
36F6 CF DEFE  +207 

36F7 E3 DEFE — +227iqet 3 

36F8 38 DEFE +563fp exit 

36F9 CDDSG2D CALL 2¿DD3 

36FC 2007 JR NZ3+7337053 
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36FE 3803 JR C+,+353703 


3700 86 ADD (HL) 

3701 3009 JR NC,+93370C 
3703 CF RST 08 

3704 03 DEFE: +Sijriim too big 
, 

3705 3807 JR C,+7:370E 
3707 9é SUE CHL) 

3708 3004 JR NC),+45370E 
3704 ED44 NEG 

370C 77 LD (CHI A 

370D C9 RET 

, 

370E EF KST 28 

370F 02 DEFE: +2 

3710 A0 DEFE +160 

3711 38 DEFE +36 

3712 (9 RET 

, 

3713 EF EST Z8 

3714 3D DEFE +6ljrestack 
3715 31 DEFE +49 copy 
37146 37 DEFE +55$80 
3717 00 DEFE +05 true 
3718 04 DEFE +4 

3719 38 DEFE +56jfp exit 
3714 CF RST 08 

3715 09 DEFE +97inv araumert 
y lista de funciones 

3710 AD DEFE +1460 

3710 02 DEFE +2idelete 
371E 38 DEFE +56jfp exit 
371F 7E LD As CH) 

37720 3680 LD cH1.),80 
3722 CD282D CALL 2028 

, 

3723 EF REST 28 

3724 34 DEFE +52iliteral 
3727 3800 DEFE +56,+0 

3729 03 DEFE +3isubtract 
3724 01 DEFE +ljexechna 
372E 31 DEFE +49300py 
3720. 34 DEFE +¿B2iliteral 
3720 FO4CCCCC DEFE +240)+76++704,+204 
3731 CD DEFE +205 

3732 03 DEFE +3 isuiilbract 
3733 37 DEFE +30)30 
3734 00 DEFE +0$j trie 
3735 08 DEFE +8 

3736 01 DEFE +1ijexchoa 
3737 fl DEFE +161 

3738 03 DEFE +3isubtract 
3739 01 DEFE +1ijexcha 
3734 38 DEFE +56jfp exit 
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373E 34 INC (HL) 


, 

373C EF EST 28 

373D 01 DEFE +1$excha 

373E 34 DEFE: +52iliteral 

373F F0317217 DEFE +240,+49,+114,+23 
3743 F8 DEFE +248 

3744 04 DEFE: +4¿mu1tiply 

3743 01 DEFE +ifjexcha 

3746 AZ DEFE: +162 

3747 03 DEFE; +3isubiract 

3748 AZ DEFE +162 

3749 03 DEFE +3ísubtract 

3744 31 DEFE +493c0pP3y 

374E 34 DEFE +523literal 

3740 3220 DEFE +50,+32 

374E 04 DEFE: +45mu1tiply 

374F AZ DEFE: +152 

3730 03 DEFE +3isubtraci 

3751 8C€C DEFE +140 

3752 11AC DEFE +17,+172 

3754 14092 DEFE +20,+9 

375306 S6DAÁS DEFE +86,+218,+16% 

3759 3230053 DEFE +89,+48,+197 

3750 3C9DAR DEFE: +92,+144,+170 

B75F 9E706F61 DEFE: +158,+112,+111,+97 
3743 A1CEDASS DEFE +161,+203,+218,+150 
37467 A4319FE4 DEFE +164,+49,+159,+180 
3765 EZADFESC DEFE +231,+160,+2394,+92 
374F FC DEFE HO 

3770 EAJE4IGCA DEFE HL) AR 674202 
3774 36 DEFE +34 

3775 EDA79C7E DEFE +237)+167,+136,+126 
3779 UE S DEFE +94 

3774 F06E2380 DEFE +240,+110,+350,+1728 
377E 93 E +147 

377F 04 +43m001t1iply 

3780 0F +15)384d 

3781 38 +5363fp exit 

3782 C9 RET 

, 

3783 EF RST Z8 

3784 3D DEFE +óliresteck 

3785 34 DEFE +B2jliterel 

3786 EEZ2F983 DEFE +238,+34,+249,+131 
3784 4EÉ DEFE: +110 

378E 04 DEFE +4$mu1biply 

378C0 31 DEFE +49c0p3 

378D AZ DEFE +162 

378E 0F DEFE +15jadd 

378F 27 DEFE: +39 3 INT 

3790 03 DEFE: +3 jsubtraci 

3791 31" DEFE +49300P3 

3792 0F DEFE: +1533dd 
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31 DEFE 
0F DEFE 
31 DEFE 
ZA DEFE 
Al DEFE 
03 DEFE 
31 DEFE: 
37 DEFE 
c0 DEFE: 
00 DEFE: 
04 DEFE: 
02 DEFE 
38 DEFE 
C9 RET 
¿ta de funciones 
Al DEFE: 
03 DEFE 
01 DEFE 
36 DEFE: 
00 DEFE: 
02 DEFE 
1E DEFE 
38 DEFE 
C9 RET 
EF REST 
39 DEFE 
ZA DEFE 
Al DEFE 
03 DEFE 
E 0 DEFE 
00 DEFE 
06 DEFE 
1E DEFE 
33 DEFE 
03 DEFE 
EF EST 
39 DEFE 
31 DEFE 
31 DEFE: 
04 DEFE 
31 DEFE 
0F DEFE 
f11 

03 

36 

14E6 

SC1FO0E 

AJSFISEE 
E91503EEÉ 

23 

EE9IZODCD 

ED 


+493c0pPy 
+1i5jadd 
+493c0pP3y 
+42 AES 
+161 
+3isubtract 
+493c0P3y 
+55933:50 
+1923store 0 
+03j true 
+4 
+23delete 
+56;fp exit 


+161 
+3jsublraci 
+ijexcha 


+548%0 
+03 true 
+2 


+27iínmeaaste 
+3U6j3fp exit 


28 

+50/7)9et 
+42 AS 
+1061 
+3isitbtract 
+224$qet 0 
+03 j true 
+ 
+27/imeaate 
+31 jump 
+3 


28 

+57;q6eL 

HAFIÍCOPY 

+49300pP3 
+43imn01tiply 
+495c00py 

+1iújadd 

+141 

+3iísiditract 

+134 

+20,+2:30 
+92,+31,+11 
+1063),+143,+56,+238 
+233),+21,+99,+187 
+35 
+238,146,+13,+205 
+237 
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F1233D1ÉE DEFE 
EA DEFE 


04 DEFE 


9E0036753 
ADDEESE'4 


634204 DEFE 


E6E50936 DEFE 


+241,++339,+93), +27 


+234 
+4 3mu1tiply 
+S6jfp exit 


28 
+493copy 
+313SIN 
+liexcha 
+323005 
+5Sidivide 
+56;fp exit 


3297 

fs CHL) 

81 
C0)+145337F8 
28 

+161 

+27 $nmeqate 
+ijexcha 
+5Sidivide 
+493c0c0py 
+504i3%0 
+1063 
+1ijiexcha 
+03 true 
«$ 4 
+27jnmeqate 
+3513 jump 
+3 


28 

+140 
+1jexcha 
+49300py 
+49 700py 
+4¿multbiply 
+49 copy 
+liadd 
+11 
+3isiiilbract 
+140 
+16,+178 
+19,+14 


+835,+228,+141 


+88,+37,+188 


+91,+152,+2393 
+1358),+0,+54,+117 
+160,+219,+232,+180 


+99 ,+66,+196 


+230,+181,+9,+54 
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381F 
382.0 
3824 
3823 
3829 
382A 
382E 
382F 
3830 
3831 
3832 


, 

3833 
3834 
3833 
3836 
3837 
3838 
3839 
383A 
383EÉ 
383 
383D 
383E 
383F 
3840 
3841 
3842 
; 

3843 
3844 
3843 
3846 
3847 
3848 
3849 


?, 

334A 
3945 
384 
384D 
384É 
384F 
3830 
; 

3831 
3832 
3833 
3854 
38353 
3836 
3857 
3838 
3839 


EE 
E936731E 
3D 
ECD8DE 43 
EE 
F061A1E3 


DEFE 


RST 
DEFE 
DEFE 
DEFE: 
DEFE 
DEFE 
DEFE 
DEFE 
DEFE 


+190 
+233,+54)+1150),+27 
+93 
+236+/+216)+222,+99 
+190 
+240,+97,+161,+179 
+12 

+4?m1m01tiply 
+15j3380dd 

+56ifp exit 


28 

+49$c0P3 
+493c00py 
+4$mu1tiply 
+161 
+3ísublract 
+273nmegqate 
+403SQR 
+161 
+15jadd 
+Bidivide 
+36FATN 
+493c00p3y 


+5S63fp exit 


28 

+34 ASN 
+163 
+3jsubtract 
+273neqate 
+563fp exit 


28 

+493c0p3y 
+483NOT 
+03 true 
+30 

+162 

+5B6jfp exit 


28 

+1iexchna 
+49icop3y 
+48 + NOT 
+03j true 
+7 

+37 3LN 
+4$mu1tiply 
+3S6jfp exit 
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3854 [30436 JE 360.4 
¡lista de funciones 
3835D 02 DEFE +2idelete 
39835E 31 DEFE +49 3c0py 
385F 30 DEFE +48 NOT 
3860 00 DEFE +0$j true 
3841 09 DEFE +9 
3862 A0 DEFE +1450 
3863 01 DEFE +1ifexcha 
3864 37 DEFE: +53933>0 
3865 00 DEFE +03 true 
3866 06 DEFE +¿ 
3867 Al DEFE: +161 
3868 01 DEFE +ijexcha. 
3869 05 DEFE +5iídivide 
3864 02 DEFE +2idelete 
386E Al DEFE +161 
3860 38 DEFE +36jPfTp exit 
386D C9 RET 
, 
F no utilizado por la ROM 
3846E FFFF DEFE HT, HI 
3870 FFFFFFFF DEFE HI, HI) HI HI 
3CFC FEFFFFFF DEFE HI,HI, HI, HI 
, 
¡ mapa de bits del conjunto de caracteres entre +32 y 
3p00 90000000 (00000000 320 space 
308 003101010 10001000 321 exclamation 
310 00242400 00000000 322 quote 
3D18 00247E24 247E2400 $23 hash 
3D20 00083E28 3JEDÁJE0OS 324 dollar 
3D28S 00626408 10264600 $235 percent 
3030 (00102810 24443400 $26 ampersand 
32038 00081000 00000000 327 apostrophe 
3D40 00040808 06080400 $28 left paren 
3048 00201010 10102000 32% riant paren 
3050 00001408 3E081400 ¿24 asterisk 
32058 00000808 32080800 $2 plus 

- 3066 00000006 00080810 520 comma 
3248 00000000 3E£000000 52D minus 
3D70 00000000 00181800  32EÉ period 
378 00000204 08102000 ser slash 
30830 00304644 524623000 ¿30 0 (zero) 
30868 00162806 08033£00 :31 1. 
3090 00304202 30407E00 332 2 
3D98 003C420C 02423000 $33 3 
3DAD0 00081828 487E£E0800 334 4 
3D48 007E£407C 02423000 333 5 
3DE0 00304070 42423000 336 4 
3DE8 007£0204 08101000 $37 7 
3DC0 00304230 42423000 538 8 
23008 00304242 3E023C00 $39 9 
3pDpD0 00000010 00001000 ¿3A color 
3Db8 00001000 00101020 ;3ÉE semicolor 
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3DE0 
3DE8 
3DF0 
3DF8 
3E00 
3E08 
3E10 
3E18 
3E20 
3E28 
3E30 
3E38 
3E40 
3E48 
3E350 
35838 
3E60 
3E68 
3E70 
3E78 
3E80 
3E88 
3E90 
3E98 
3EA0 
3EA8 
3EE0 
3EES 
3EC0 
3EC8 
3ED0 
3EDS 
3EE0 
3EE8 
3EFO 
3EF8 
3F00 
3F08 
3F10 
3F18 
2FZ0 
3F28 
3F30 
3F38 
3F40 
3F48 
3F30 
38 
3F60 
3F68 
3F70 
3F78 
3F£0 
3F88 


00000408 
0000003É 
00001008 
003804204 
00304456 
00304242 
007C427C 
00304240 
00784442 
007£407C 
007E407C 
00304240 
0042427E 
003E£0808 
00020202 
00444870 
00404040 
0042663A 
00426232 
00304242 
00704242 
00304242 
00704242 
0030403C 
00FE1010 
00424242 
00424242 
00424242 
00422418 
00824428 
00780408 
000E£0808 
00004020 
00701010 
00103834 
000000600 
00102278 
00003204 
DOZ020Sc 
00001020 
000940430 
00003344 
000C1018 
000031244 
00404078 
00100030 
00090004 
00202830 
00101010 
000068334 
00007844 
00003344 
00007344 
00003C44 


10080400 
003E0000 
04081000 
08000800 
5E403C000 
75424200 
42427000 
40423000 
42447800 
40407E00 
40404000 
4E423000 
42424200 
08083E00 
42423000 
48444200 
40407E00 
42424200 
44464200 
42423000 
70404000 
52443000 
70444200 
02423000 
10101000 
42423000 
42241800 
42542400 
18244200 
10101000 
10207E00 
08080E00 
10080400 
10107000 
10101000 
DO00000FF 
2020700 
30443000 
22223000 
20201000 
44443000 
78403000 
10101000 
44300438 
494444400 
10103800 
04042418 
30282400 
10100C00 
54545400 
44444400 
44443800 
44784040 
44300406 


less thar 
eauals 


qreater than 


query 
at-siqrn 


NX<XxXE<CCANANO MOZA ACAHA3IIOTNMOdD> 


left sq kracket 


(letter) 


teck slash 


right sa bracket 


Lp 3rTOow 
underline 
Pond 
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3F90 
3F98 
3FA0 
3FA8 
3FE0 
3FE8 
3FCO 
3FC8 
3FDO 
3FD8 
3FE0 
3FE8 
3FFO 
3FF8 


00001020 
00003340 
00103810 
00004444 
00004444 
00004434 
00004428 
00004444 
00007C08 
000£0830 
00080808 
0070100C 
00142800 
30429941 


20202000 
38047800 
10100C00 
44443800 
¿8281000 
54542800 
10284400 
44300438 
10207C00 
08080E00 
08080800 
10107000 
00000000 
A199423C 


END 


left brace 
vertical bar 
riahbt brace 
tilde (wavy line) 
copyright. sgmbol 
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EL MICRODRIVE 
Y EL | 
INTERFACE 1 
DECODIFICADOS 


Detalles del funcionamiento del Microdrive y el Interface 1 
para programadores en Código Máquina 


Capítulo 1: INTRODUCCION 


En las páginas siguientes se dan detalles del diseño del Interface 1 del ZX Spectrum 
desde un punto de vista práctico para el programador en Código Máquina. Donde es 
necesario, se incluyen algunas nociones de tipo elemental. 

El Interface 1 del ZX (1Fl1 para abreviar) es un conjunto de circuitos electrónicos 
situados en la parte inferior del ZX Spectrum, con los que se establece contacto a través 
del conector allí existente. Las señales necesarias para controlar la impresora se llevan hasta 
la parte posterior de la unidad, aunque se supone que los niveles de señal no se ajustan 
perfectamente de forma que con algunas impresoras puede ser que la IF1 no dé buenos 
resultados. 

El IF1 se halla provisto de los conectores necesarios para crear una red de hasta 
sesenta y cuatro Spectrums y conectar asimismo de uno a ocho Microdrives. Para disponer 
de un interfaz RS232 bidireccional será necesario, sin embargo, adquirir un cable. 

El diseño del IF1, permite acceder a muchas de las nuevas rutinas de software que 
hay en su interior, mediante llamadas de función efectuadas desde un programa que se 
esté ejecutando en el propio ZX Spectrum. 

Aunque los detalles internos del IF1 se hallan celosamente protegidos por Sinclair 
Research Ltd. y puede que cambien en un futuro, el interfaz de software continuará siendo 
el mismo. Por esta razón, resulta lógico que los programadores utilicen las llamadas a 
función para asegurar la compatibilidad con futuros modelos de la IFl. 
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Capítulo 2: EL INTERFAZ RS8232 


El RS232 es un interfaz muy utilizado, en el proceso de datos, para el envío y la 
recepción de información en forma de cadenas de bits, al ritmo de un bit cada vez. 

De hecho, tan sólo el estándar de transmisión de datos de serie RS232 y la represen- 
tación de caracteres ASCII (en la cual a la letra *A” le corresponde la cadena de bits 0100 0001 
que es el valor decimal 65) se pueden considerar como los únicos estándares comunes a 
todo tipo de ordenadores: micros, minis e incluso ordenadores grandes. 

El interfaz RS232 le abre las puertas a la posibilidad de intercambiar datos entre su 
Spectrum y prácticamente cualquier otro ordenador. También puede conectar la unidad 
IF1 a la red telefónica mediante un modem o conectarla a una simple impresora que 
utilice el interfaz RS232, 


LAS VELOCIDADES DE TRANSMISION Y DE RECEPCION DE DATOS 


En la IF1 hay una sola variable del sistema que determina la velocidad tanto de la 
transmisión como de la recepción. También hay dos canales de software para los progra- 
madores de BASIC (Binario y Texto) y dos funciones de Código Máquina (recibir byte y 
enviar byte). 

La velocidad del interfaz RS232 se mide en bits por segundo en una gama que va 
desde 1 a 19200. A esta medida de la velocidad se le denomina (aunque sólo sea cierto de 
forma aproximada) la velocidad en baudios. Damos a continuación las diez velocidades 
en baudios establecidas convencionalmente y una indicación de cuál es su aplicación. 
Las velocidades 50 y 110 corresponden a las máquinas de escribir electromecánicas; las 
de 300 y 600, a la red telefónica pública; las de 1200, 2400 y 4800 a conexiones 
telefónicas privadas; la de 9600 a la mayoría de los interfaces de ordenador y, finalmente, 
la de 19200 a los interfaces de ordenador de alta velocidad. 

La velocidad queda controlada en la IFl por la nueva variable del sistema BAUD 
(véase el Apéndice de las variables del sistema). Esto corresponde a un retardo de software 
fijado por la instrucción de BASIC FORMAT “b”;velocidad o bien FORMAT “t”;velocidad. 
También puede calcularse y fijarse esta velocidad mediante Código Máquina utilizando la 
fórmula BAUD =el entero más próximo a (134615/velocidad) — 2. Por ejemplo, una 
velocidad de 9600 bps (bytes por segundo) daría el valor +12 que es el valor por defecto 
de BAUD. 

El canal binario “b” envía y recibe cada byte como una cadena de 8 bits indepen- 
dientemente del significado que ésta tenga. El canal de texto 't” envía y recibe caracteres 
en una gama que llega hasta el valor decimal 127. 

Al entrar al canal “t” mediante las instrucciones de BASIC INPUT o INKEY$ 
cualquier valor correspondiente al byte que quede fuera de la gama O—127 se trata como 
el carácter equivalente pero restándole previamente el valor 128. 
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A la salida del canal “t” todos los caracteres de control por debajo del 32 se desprecian 
menos el que corresponde a ENTER (valor 13). Este valor se envía como si fuera un 
retorno de carro (valor 13) y le sigue el valor correspondiente al «LINE FEED» (valor 10). 
Cualquier carácter gráfico comprendido entre los valores 128 y 164 se traduce por un signo 
de interrogación (valor 63). Las palabras reservadas del Spectrum («tokens») comprendidos 
entre los valores 165 y 255 se envían como sus equivalentes en texto. Por ejemplo, el valor 
255 se envía como las cuatro letras de “COPY”. 


LAS LLAMADAS A FUNCION DEL INTERFACE 1 RELACIONADAS CON RS232 


Damos ahora una descripción de las llamadas a función del IF1 que tienen que ver 
con el RS232. Para más detalles respecto a este interfaz, consúltese el Apéndice RS232. 


Función +29 (1DH) RECIBIR UN BYTE A TRAVÉS DEL RS232 CON LÍMITE DE TIEMPO 


Cuando se llama a esta función desde Código Máquina (véase Capítulo $5), obtiene 
un único byte (si está disponible) del interfaz RS232 con la velocidad en baudios vigente en ese 
momento. 

La función comprueba si se trata de un byte correspondiente a la variable del sistema 
SERBYT (que actúa como memoria intermedia («buffer») de seguridad con capacidad de 
un solo byte) o bien si se trata de un byte procedente del propio interfaz. En caso de 
encontrarlo, el byte se deja en el registro A activándose el señalizador de acarreo. 

El IF1 forma el byte a partir de los ocho bits de datos que han ido llegando uno a uno 
(el primero, el bit 0). Detrás de estos ocho bits viene el bit de parada o de stop. El bit 
de ston se acepta pero se ignora, es decir, no tiene otra utilidad más allá de la de indicar 
el fin de un grupo de ocho bits. 

Si no hay ninguna actividad en el interfaz (es decir, no hay datos o bien el interfaz no 
está conectado) la rutina espera un determinado tiempo y luego se desactiva. En este caso, 
el señalizador de acarreo se desactiva y el valor que se deja en el registro A es el cero. 

Después de desactivar la señal de borrar para enviar (Clear To Send), el IF1 espera 
un poco para comprobar si no hay alguna nueva actividad del otro sistema. Si llega alguna 
nueva señal, se forma el nuevo byte y se almacena en el «buffer» de seguridad SERBYT. 
También se activa el señalizador SERFL dejándolo preparado para la llamada siguiente a 
esta función. 


Función +30 (1EH) ENVIAR UN BYTE POR EL RS232 
Esta función saca un byte del registro A y lo envía al interfaz RS232 para que sea 
transmitido en serie a la velocidad en baudios vigente en ese momento. 


El interfaz transmite el byte como ocho bits de datos —uno a uno— (el primer bit 
que se envía es el 0) seguidos de dos bits de stop. 
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Capítulo 3: EL MICRODRIVE 


Los datos se almacenan en los cartuchos del Microdrive en forma de ficheros, 
cada uno de los cuales es una serie de registros de hasta 512 bytes cada uno. Hay un límite 
lógico máximo que se fija en 256 ficheros de tamaño reducido pero, en la realidad, el límite 
práctico queda determinado por el espacio de datos disponible en el cartucho en un mo- 
mento dado. 


LOS FICHEROS DE DATOS Y LOS DE PROGRAMAS EN EL MICRODRIVE 


En el Microdrive existen dos tipos de fichero: los ficheros de datos y los ficheros de 
programas. Un fichero de datos puede utilizarse desde el BASIC con las instrucciones 
PRINT, INPUT, INKEY$ y la nueva instrucción MOVE. Un fichero de programa sólo 
puede utilizarse mediante SAVE, LOAD, VERIFY y MERGE. Como medida de seguridad 
adicional, todo fichero cuyo nombre empiece con el carácter nulo CHR$ 0 no aparece en 
el catálogo correspondiente del cartucho aunque, si se usa el nombre correcto, podrá ser 
utilizado. De forma similar, el empleo de caracteres de control dentro del nombre del fichero 
puede hacerse para confundir y frustrar a los piratas, puesto que un fichero sólo puede 
utilizarse mediante su nombre correcto. 

Los registros de datos del cartucho se almacenan en sectores de longitud fija. El 
número de sectores de un cartucho se determina al inicializarlo. La instrucción FORMAT 
(por ejemplo FORMAT “*m””; 1;**AC-—-0184””) escribe en cada sector el nombre del cartucho 
y el número del sector hasta el máximo número posible de sectores que permita un deter- 
minado cartucho. 

Cualquier sector que durante una operación FORMAT se encuentre en malas condi- 
ciones, será marcado como no disponible para que no se utilice como lugar de almacena- 
miento de datos. Posteriormente, durante la creación del mapa de la unidad (véase más 
adelante), se comprobarán de nuevo todos los sectores. Todos aquellos que hayan dejado de 
ser utilizables provocarán la activación de un bit de señalización guardado en memoria. 
Asimismo se activarán los bits correspondientes a todos aquellos sectores que ya no eran 
utilizables. 


EL CONTENIDO DE CADA SECTOR DE UN CARTUCHO 


Cada sector contiene, además de datos de temporización, un bloque de cabecera del 
sector de una longitud de 15 bytes, 16 bytes de información de control del registro y los 
512 bytes de datos del registro. 

El bloque de cabecera del sector identifica el nombre del cartucho y lleva un número del 
sector así como un byte señalizador de cabecera y un byte de la suma de control 
(«Checksum»). : 
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La información de control del registro contiene el nombre del fichero, el número del 
registro, la longitud de ese registro, un señalizador del registro y varios bytes de «Checksum» 
para el control de los bytes y de los bytes de datos. El señalizador del registro lleva un bit 
de seguridad que indica a qué tipo de fichero pertenece: datos o programa. 

Los datos comprenden 512 bytes (medio Kilobyte) a menos de que se trate del último 
registro del fichero. Los bloques parcialmente llenos (es decir, aquéllos que no llegan a 
tener una longitud de 512 bytes) se almacenan temporalmente en el área de canal de ese 
fichero hasta que el bloque esté lleno o bien hasta que se cierre el fichero. Para indicar 
cual es el último registro se activa un bit en el byte señalizador de registro. Este último 
registro puede, por tanto, ser de una longitud inferior a los 512 bytes. 


LA FORMACION DEL CATALOGO DEL QUE CARECE LA CINTA 
DE UN CARTUCHO DE MICRODRIVE 


La característica principal del software del Microdrive es la ausencia de un catálogo 
físico grabado en la cinta contenida en el cartucho. La existencia y posición de los registros 
de un fichero se deducen simplemente consultándolos (se identifican a sí mismos desde el 
momento en que llevan grabados el nombre del fichero y el número del registro). Por 
ejemplo, la instrucción CAT 1 construye el catálogo mediante la exploración de todo el 
cartucho que en ese momento se encuentre en la unidad número 1 y anotando a qué nombre 
de fichero se hace referencia desde registros válidos. 

Esta solución tan económica tiene sus desventajas. Cuando un programa abre un nuevo 
fichero, es necesario que el software relea todo el cartucho para comprobar que ese fichero 
no existe ya. Al mismo tiempo, hay que crear un mapa que contenga los sectores libres 
puesto que los registros nuevos se escriben siempre en el primer sector libre del cartucho. 

Existe igualmente el peligro de que, si un fichero muy pequeño está representado única- 
mente por un sector del cartucho, ese sector se lea incorrectamente. En ese caso, el software 
deduce que el fichero no existe. En el caso de una operación OPEN se podría abrir un nuevo 
fichero para escritura o un fichero con el mismo nombre lo cual podría provocar una gran 
confusión. La instrucción CAT, por su parte, podría no reflejar en el catálogo la existencia 
de ese fichero. (Por cierto, en el caso de que la instrucción CAT no le muestre a usted el 
fichero que está esperando, repítala. A pesar de disponer de «scroll» existe un límite que 
fija la cantidad de ficheros que la instrucción CAT puede presentar en pantalla en un mo- 
mento dado). 


LOS MAPAS DE MEMORIA DEL MICRODRIVE 


Cuando un programa abre un fichero en una unidad determinada, el software comprueba 
si existe un mapa en memoria correspondiente a esa unidad. En caso de que no exista, se 
crea uno. 

El manual de programación en BASIC, en su Capítulo 24, da una dirección para el 
inicio de los mapas del Microdrive. Sin embargo, esta dirección ya no es correcta pues ha 
cambiado. Cuando se activa el IF1 se crean unas cuantas variables de sistema adicionales 
que colocan en la pila la dirección inicial del primer mapa hasta el valor decimal 23792 
(5CFO en hexadecimal). 

El sistema asocia un único mapa a cada unidad que contenga, al menos, un fichero 
abierto. Por tanto, el número de mapas existentes en un momento dado no puede ser 
superior al número de unidades conectadas. Si no hay ningún fichero abierto, no existe 
mapa alguno. 
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El mapa correspondiente a cada unidad ocupa 32 bytes es decir, 256 bits. El bit «X» 
del byte «Y» representa el sector Y x 8 + X. La numeración parte en este caso del cero. 
De esta manera, el bit O del byte O representa el sector O y el bit 7 del byte 31 repre- 
senta el sector 255, El bit estará activado si el sector correspondiente ya está ocupado o 
bien no está disponible para aceptar nuevos datos. El bit estará desactivado en el caso de 
que el sector esté libre. Se define un sector libre como un bloque de menos de $12 bytes 
que no está marcado como «end of file» (fin de fichero). 


LOS CANALES QUE PUEDEN ESTAR ABIERTOS EN UN MOMENTO DADO 


En todo momento hay cuatro canales del Spectrum abiertos: los correspondientes 
al teclado, a la pantalla, al área de trabajo interna y a la impresora. Cada uno de estos canales 
ocupa 5 bytes. La primera área de canales del IF1 (por ejemplo, para un fichero de Micro- 
drive) está, por tanto, veinte bytes más allá del punto en el que empieza la dirección de la 
variable del sistema CHANS, 

En BASIC, el número de ficheros que pueden estar abiertos en un momento dado 
queda limitado por el número de corrientes (0 a 15) asociadas a los canales y también por 
la memoria disponible. El único límite que se impone en Código Máquina es el espacio de 
memoria disponible para las áreas de los canales, puesto que las funciones del IF1 supo- 
nen que quien las llama está gestionando los canales a través del registro IX. Obsérvese 
que la dirección del canal que se guarda en IX sólo es válida si la dirección de CHANS 
y el contenido son iguales. La apertura o cierre de un fichero, por ejemplo, puede cambiar 
uno cualquiera de estos elementos. 


LAS LLAMADAS A FUNCION DEL INTERFACE 1, 
RELACIONADAS CON EL MICRODRIVE 


Hagamos una descripción de cada llamada a función del IF1 que se relaciona con el 
Microdrive. Para más detalles respecto al Microdrive véase el Apéndice correspondiente. 


Función +33 (21H) con A=0 DES-SELECCIONAR UNIDAD DE MICRODRIVE 


Apaga todos los motores de unidades de Microdrives. De-selecciona todas las unidades 
y permite las interrupciones. 
Retorno en caso de error: ninguno. 


Función +33 (21H) con A<>0 SELECCIONAR UNIDAD 


Selecciona la unidad de Microdrive especificada (entre 1 y 8). Se prohiben las inte- 
rrupciones y el motor de la unidad especificada se pone en marcha. 

Retorno en caso de error: no hay respuesta procedente del Microdrive. 

Esto ocurre normalmente porque la unidad seleccionada o bien no está conectada, 
o bien el cartucho que contiene no está formateado. Se de-seleccionan todas las unidades 
de Microdrive antes de que se produzca la respuesta por error. 


Función +34 (22H) ABRIR UN FICHERO DE DATOS DEL MICRODRIVE 
El fichero de datos se define mediante el primer especificador de fichero (DSTRI, 


NSTRI1 y FSTRI) de los que se encuentran entre las variables adicionales del sistema. Obsér- 
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vese que el usuario no dispone de ningún medio para especificar si el fichero es nuevo o 
antiguo. 

Esta función crea una nueva área de canales en CHANS, se asegura de que ya existe 
un mapa para esa unidad y desplaza todo lo que hay en memoria hacia arriba en dirección a 
STKEND para, así, dejar espacio libre. A la vuelta de la función, el registro IX apunta 
al área de canales. 

Una vez hecho esto, se selecciona la unidad y se procede a explorarla. Si se encuentra 
que el fichero ya existe, se deja su primer registro en el «buffer» y el bit O del byte que 
actúa como señalizador de canal (CHFLAG) se desactiva para indicar que el fichero ha sido 
abierto para escritura. 

En caso de que el fichero no exista —es decir, no se ha encontrado ninguno de sus 
registros— se procede a actualizar el mapa para que muestre la posición de todos los 
sectores libres. El bit O del byte señalizador de canal se activa con el fin de indicar que ese 
fichero se ha abierto para escritura. Los ficheros pueden abrirse más de una vez para 
lectura (en BASIC, por ejemplo, un fichero puede estar conectado a varias corrientes al 
mismo tiempo). Sin embargo, los ficheros sólo pueden abrirse una sola vez para escritura. 

Téngase en cuenta que cada vez que se abre un fichero, se crea una nueva área de 
canales incluso en el caso de que se haya abierto otro fichero con ese mismo nombre me- 
diante una llamada anterior a esta función realizada. De esta manera, se consigue que se 
pueda leer desde dos corrientes diferentes el mismo fichero de datos. Un programa, por 
ejemplo, podría obtener el acceso a un determinado registro de un fichero de agenda 
mientras realiza sobre el mismo fichero la búsqueda de los datos de la persona con quien se 
ha establecido la cita. Un fichero que guardara información acerca de las piezas mecá- 
nicas podría, al mismo tiempo, guardar referencias a montajes intermedios que utilizaran 
las piezas guardadas en el fichero. 

Errores: no se trata de un fichero de datos; no se ha podido encontrar el primer re- 
gistro de un fichero ya existente; fichero abierto para escritura. 


Función +35 (23H) CERRAR UN FICHERO DE DATOS DEL MICRODRIVE 


El proceso que llame a esta función debe dejar en el registro IX la dirección del canal. 
En caso de que el registro estuviera abierto para escritura, se vacía el «buffer»: el registro 
en utilización se escribe sobre el primer sector libre del Microdrive. 

Se desasigna el canal y toda la memoria que exista entre el punto en que se esté y la 
dirección STKEND se desplaza hacia abajo. Ocurre lo mismo con el mapa de la unidad, 
a menos que esté siendo utilizado por otro canal. 

Errores: en el caso de que no haya sectores libres (sobre los cuales escribir el registro 
que se utilice en el momento de cerrar el fichero). 


Función +36 (24H) BORRAR UN FICHERO DEL MICRODRIVE 


El fichero (de datos o de programa) queda definido mediante el primer especificador 
del fichero (DSTR1, NSTR1 y FSTRI) de las variables adicionales del sistema. En el caso 
de que la función no pueda encontrar el fichero, no se generará ningún informe de error. 

Esta función inserta en CHANS un área temporal de canales y se asegura de que ya 
existe un mapa de la unidad de Microdrive. Se buscan en la unidad de Microdrive re- 
gistros que pertenezcan al fichero especificado y se marcan los sectores disponibles. 

Una vez hecho esto, se cierra el canal temporal. El mapa correspondiente sufre un 
tratamiento similar, a menos que ya esté siendo utilizado por otro canal. 

Errores: Ninguno. 
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Función +37 (25H) LEER UN REGISTRO DE DATOS DEL MICRODRIVE (secuencialmente) 


El proceso que llama a esta función debe dejar en el registro IX la dirección del canal. 
La función se encarga de leer el registro siguiente del fichero de datos asociado al canal. 
En caso de que exista, se increménta el número contenido en CHREC que es el correspon- 
diente a la posición relativa del registro dentro del fichero. 

Errores: lectura más allá del fin de fichero; no existe el registro; no se trata de un 
fichero de datos. 

Si no se trata de un fichero de datos, se cierra el canal. 


Función +38 (6H) ESCRIBIR UN REGISTRO DE DATOS DEL MICRODRIVE 


El proceso que llama a esta función deja la dirección del canal en el registro IX. La 
función procede a escribir el registro del canal en el primer sector libre de la unidad de 
Microdrive. Obsérvese que en este caso no se incrementa el número correspondiente a la po- 
sición relativa del registro en el fichero. 

Errores: inexistencia de sectores libres. 


Función +39 (27H) LEER UN REGISTRO DEL MICRODRIVE DE FORMA DIRECTA 


El proceso que llama a esta función deja la dirección del canal en el registro IX. La 
función lee el registro especificado por CHREC dejándolo en el área de canales. Obsérvese 
que en este caso tampoco se incrementa el número del registro. 

Errores: inexistencia de sectores libres; no se trata de un fichero de datos. 

Si no se trata de un fichero de datos, se cierra el canal. 


Función +40 (28H) LEER UN SECTOR DEL MICRODRIVE 


El proceso que llama a esta función deja la dirección del canal en IX y tiene que 
haber seleccionado previamente la unidad de Microdrive. La función lee el bloque de datos 
del sector especificado por CHREC. Si hay un error en la suma de control («checksum») 
o bien si los datos no son correctos, se activa el señalizador de acarreo. Si el fichero es de 
programa, los datos del «buffer» resultarán borrados. 

Errores: sector no encontrado en una revolución o giro completo. 


Función +41 (29H) LEER EL SIGUIENTE SECTOR DEL MICRODRIVE 


El proceso que lleva a esta función deja la dirección del canal en IX y, con anterioridad 
a la llamada de esta función, tiene que haberse seleccionado la unidad de Microdrive. La 
función lee el bloque de datos del sector siguiente especificado por HDNUMB. Esta es una 
forma bastante interesante de encontrar la posición de un cartucho. 

Si hay un error de suma de control («checksum») o bien si los datos no son válidos, 
se activa el señalizador de acarreo. Los datos que se encuentran en el «buffer» resultarán 
borrados si pertenecen a un fichero de programa. 

Errores: sector no encontrado durante una revolución o giro completo. 
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Función +42 QAH) ESCRIBIR UN SECTOR DEL MICRODRIVE 


La dirección del canal se deja en IX y con anterioridad tiene que haberse seleccionado 
la unidad de Microdrive. Esta función escribe un bloque de datos en el sector identificado 
por CHREC. Se marca en el mapa para indicar que el registro ya está ocupado. 

Errores: la unidad de Microdrive está protegida contra escritura; sector no encontrado. 


Función +43 (BH) CREAR UN ÁREA DE CANALES DEL MICRODRIVE 


El fichero de datos está definido mediante el primer especificador de ficheros tal y como 
se hacía en la función +34 (22H). Esta función inserta una nueva área de canales y se ase- 
gura de que existe el mapa correspondiente ala unidad de Microdrive apropiada. Al volver 
de la función, el IX apunta al área de canales. 

Errores: ninguno. 


Función +44 (QCH) BORRAR UN AREA DE CANALES DEL MICRODRIVE 


El proceso que llama a esta función deja la dirección del canal en IX. Se procede a la 
desasignación del área de canales y la memoria comprendida hasta la dirección STKEND 
se desplaza hacia abajo. El tratamiento del mapa de la unidad de Microdrive es similar a 
menos de que ya esté siendo utilizado por otro canal. 
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Capítulo 4: LA RED DE AREA LOCAL 


La Red de Area Local que proporciona el Interface 1 es, probablemente, la implan- 
tación comercial más barata de una Red de Area Local que se haya hecho jamás. Permite 
interconectar hasta un total de 64 ZX Spectrums con tan sólo dos cables: el de la señal y el 
de tierra. 

Cada uno de los ordenadores que forman parte de la Red tiene asignado un número de 
estación que va desde el 1 (que se toma por defecto) hasta el 64, La instrucción de BASIC 
FORMAT “*'n””;x es la que se utiliza para cambiar el número de la estación. 

Los números de estación 64 y 62 son los que el sistema de la IF1 interpreta como los 
correspondientes al «servidor de impresora» («Printer server») y al de la estación del usuario 
respectivamente. La estación número 62 puede realizar una instrucción LIST a través de la 
Red para el servidor de la impresora. El listado se imprime mediante el comando MOVE. 
Véase el manual del IF1 para los detalles del funcionamiento de esta instrucción en BASIC. 


COMO CIRCULA LA INFORMACION POR LA RED 


La información circula por la Red en forma de paquetes. Cada mensaje lleva los 
números de la estación de partida o emisora y de la estación de llegada (de forma similar 
a cómo las cartas llevan el nombre del destinatario y del remitente). 

El método utilizado por el IF1 es un tanto «anárquico» de forma similar a como ocurre 
con el sistema Ethernet y en oposición a otros sistemas como el de «ranura circular» 
utilizado por el sistema «Cambridge Ring». La ventaja y, al mismo tiempo, la desventaja 
de este sistema «anárquico» es que nadie lleva el control. Si más de una estación intenta 
transmitir al mismo tiempo (competencia) el resultado es un mensaje incorrecto. 

La solución es una cuestión de protocolo: si la Red está tranquila, uno puede intentar 
el envío de un mensaje. Si, al mismo tiempo, otro usuario inicia la transmisión, entonces 
lo mejor es que ambos se retiren y dejen para más tarde la transmisión de su mensaje. 
Uno de los refinamientos más interesantes que aporta el 1F1 es que cada estación, antes 
de realizar su transmisión, espera, durante un intervalo de tiempo aleatorio, a que la Red 
esté libre. Así se hace lo posible para impedir una iniciación falsa de la transmisión cuando 
se ha producido la colisión entre dos paquetes al haber empezado los dos al mismo tiempo. 


FICHEROS DE DATOS Y DE PROGRAMA PARA LA RED DE AREA LOCAL 


La Red trabaja con dos tipos de fichero al igual que ocurre con el Microdrive: de datos 
y de programa. Los canales de la Red para ficheros de programa se abren y cierran auto- 
máticamente mediante las instrucciones SAVE, LOAD, MERGE y VERIFY. 
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Es posible y a la vez interesante —aunque no muy útil — recibir ficheros de programa 
a través de la Red y procesarlos como si fueran datos. Para ello hay que hacer lo siguiente: 


Emisor 

SAVE * “n”*;1 

Receptor 

100 CLOSE £8 : OPEN £8;n”;1 

200 LET a$ =INKEYS£8: IF a$="* THEN GOTO 200 
300 PRINT CODE a$;” **; : GO TO 200 


LA TRANSFERENCIA DE FICHEROS DE DATOS 


La utilización principal de la Red es, por supuesto, la transferencia de ficheros de datos. 
Las transacciones típicas entre dos estaciones de la Red, acostumbran a ser intercambios de 
datos. Cada estación ejecuta un programa que, en BASIC, tiene el siguiente aspecto: 


100 IF receptor THEN GOTO 400 
200 CLOSE £8: OPEN £8;“n””;1 
300 INPUT a$: PRINT £8;a$ 
400 CLOSE £8: OPEN £8;'n”;1 
500 INPUT £8;a$: PRINT a$ 

600 GOTO 200 


Si el receptor intenta entrar datos en una dirección situada fuera de la memoria inter- 
media o «buffer» asociado a la Red, el software provoca un error de «end of file» (fin de 
fichero). El receptor tiene que conocer la aparición del fin de fichero antes de que ésta 
ocurra en realidad. Para ello, puede esperar a la aparición de un valor de datos especial 
que indique el fin de fichero o, como se hacía en el listado anterior, puede fijar el número 
total de datos que quiere recibir. Con un programa en Código Máquina se podrían observar 
continuamente los valores relativos de las variables de sistema y del canal como, por ejemplo, 
NCCUR y NCIBL. 

A continuación damos una descripción de las funciones del 1F1 que afectan a la Red 
de Area Local. Para más detalles acerca del área de canales de la Red de Area Local, 
consúltese el Apéndice correspondiente a la Red. 


Función +45 (2DH) ABRIR UN CANAL DE LA RED 


Quien llama a esta función ha de colocar el número de su estación en la variable del 
sistema NTSTAT y el número de la estación receptora de su mensaje en DSTR1 (suponiendo 
que ya se hayan asignado las variables adicionales del sistema). 

Esta función abre un canal de la Red que conecta las dos estaciones especificadas y, 
cuando termina, retorna con el registro IX apuntando al canal de la Red. 

Errores: ninguno. 
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Función +46 (2EH) CERRAR UN CANAL DE LA RED 


Se deja la dirección del canal en IX. En caso de que todavía haya en el canal datos 
que deban enviarse —es decir, NCOBL>0—, se procede a vaciar la memoria intermedia 
(«buffer»). El paquete que todavía estaba en la Red acaba de transmitirse. 

Se desasigna el canal y toda la memoria comprendida hasta STKEND se desplaza 
hacia abajo. 

Errores: ninguno. 


Función +47 (QFH) RECIBIR UN PAQUETE DE LA RED 


Quien llama a esta función debe dejar la dirección del canal en IX. La función se en- 
carga de obtener el paquete siguiente que se encuentre en la red y que esté destinado al 
número de estación que se halle en funcionamiento, tanto si se trata de un paquete proce- 
dente de la estación O (emisión) o bien procedente de una estación determinada. Si el 
número de la otra estación (variable de canal NCIRIS) es 0, la función espera un paquete de 
emisión. 

La variable de canal NCNUMB contiene el número de bloque del paquete que se ha 
pedido. Cuando se consigue la recepción satisfactoria del paquete, se produce un reconoci- 
miento y, además, se incrementa la variable NCNUMB. Para evitar retrasos en el caso de 
que el reconocimiento anterior se haya perdido, cada reconocimiento ocupa dos bloques: 
el que está siendo utilizado y el anterior. 


TEMPORIZACION (TIMING) 


Esta función espera indefinidamente la llegada de un mensaje procedente de la estación O 
(emisión) y hasta 12 ms para un paquete de otra estación. Aun en el caso de que en ese 
tiempo llegue un paquete, la función dispone de 50 ms en total para realizar todas sus 
Operaciones. 

En el caso de que haya transcurrido todo el intervalo de tiempo sin que haya habido 
la recepción de un paquete, el señalizador de acarreo se activa. Esto ocurre también en el 
caso de que se detecte un error en el paquete recibido. Sin embargo, no se pone en marcha 
ninguna acción como resultado de la detección de este tipo de errores. 

Errores: ninguno. 


Función +48 (30H) ENVIAR UN PAQUETE DE LA RED 


El programa que llama a esta función deja en IX la dirección del canal, en A el seña- 
lizador de fin de fichero y, además, inicializa otros parámetros en la forma que más ade- 
lante detallaremos. La función procede a enviar el paquete a través de la Red bien como 
emisión o bien dirigiéndolo a un número de estación determinado. En este último caso, 
la función esperará a recibir el reconocimiento desde esa estación. El número de bloque 
(variable de canal NCNUMB) se incrementa. 

El indicador de fin de fichero del registro A tiene dos valores: o vale 0 (normal) o vale 1 
(lo que indica que el registro es el último del fichero). Este indicador de fin de fichero 
se guarda en la variable de canal NCTYPE. 

El número de bytes (nunca igual a 0) se almacena en la variable de canal NCOBL. 
Si el número de estación indicado por la variable NTDEST es 0, entonces se trata al paquete 
como si fuera una emisión. E 
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Capítulo 5: FUNCIONES DIVERSAS 


Para facilitar el desarrollo de software de aplicación, especialmente en aquellos casos 
en que es necesario acceder de forma directa a los ficheros del Microdrive, se han dispuesto 
una serie de funciones en la ROM del Interface 1 que resultan de gran utilidad para el pro- 
gramador en Código Máquina. 


FUNCIONES ADICIONALES PARA FACILITAR LA PROGRAMACION 
DEL SISTEMA BASICO 


La mayoría de las funciones de la ROM tienen que ver con las posibilidades adicionales 
que aporta el hardware del Interface 1 y se explican en los capítulos correspondientes. Sin 
embargo, se ha añadido una serie de funciones que no tienen relación directa con el nuevo 
hardware. El objetivo de esta inclusión es facilitar la programación del sistema básico. 
Evidentemente sin el IF1 no existiría llamada a función alguna. 

Las funciones se llaman desde la dirección 8. En Código Máquina: 


RST 08 
DEFB n 


donde n es el código correspondiente a una determinada función. 
Una forma muy económica de llamar a una función desde el BASIC consiste en 
almacenar el Código Máquina necesario en una instrucción REM. Esto se hace así: 


1 REM CAT1 <> representa la cifra hexadecimal CF 31 C9 que llama 
a la función +49 
4000 LET n=5+PEEK 23635 + 256*PEEK 23636 : REM n=(PROG)+5 
4100 El REM podría hacer POKE n + 1, función aquí en caso necesario 
4200 RANDOMIZE USR n 
4900 RETURN 


Si la función no puede realizar la operación pedida o bien si se interrumpe como 
respuesta a una pulsación de la tecla BREAK, retorna dando un error. Es decir, carga el 
registro SP con el contenido de ERRSP y retorna. Obsérvese que el programa que llama a 
la función puede seleccionar la forma de gestionar los errores retocando el contenido de 
ERRSP. 

Como siempre, el registro TY tiene que apuntar a las variables del sistema guardadas 
en ERRNR (5C3A 23610) siempre que se llame a una función del IF1 o del Spectrum. 

Al realizarse la primera llamada a una función del software del IF1 se generan las va- 
riables adicionales del sistema. Existe una función de inicialización, la función +49 (31H—-) 
que permite asegurarse de que las variables adicionales se han colocado correctamente en 

195 


memoria. Esto resulta especialmente útil si es necesario modificarlas antes de realizar la 
primera llamada a función. 

A continuación describimos estas funciones de uso diverso conjuntamente con los pará- 
metros que utilizan. Todos los registros (a excepción de aquellos que se mencionan explí- 
citamente como medio a través del cual retornar valores) pueden ver su contenido alterado 
durante la ejecución de una función. En el Apéndice correspondiente se da una lista resumida 
de las funciones existentes. 


Función +27 (1BH) ENTRADA DE CONSOLA 


Esta función espera recibir una entrada procedente del teclado del Spectrum. Utiliza la 
rutina habitual de exploración del teclado. Obtiene el carácter enviado a partir de la variable 
del sistema LASTK y se lo pasa al programa que le ha llamado a través del registro A. No 
se realiza el «eco» del carácter en la pantalla. 


Función +28 (1CH) SALIDA DE CONSOLA 


Toma el carácter dejado en el registro A y llama a la rutina de salida normal para la 
corriente del sistema —2. Esta corriente está asignada al canal “s” de la pantalla al igual 
que ocurre con el comando de BASIC PRINT. 


Función +31 (1AF) SALIDA PARA LA IMPRESORA ZX 


Toma el carácter contenido en el registro A y llama a la rutina normal de salida para 
la corriente 3. Esta corriente está normalmente conectada con el canal “p* que es el que 
corresponde a la impresora. Igualmente ocurre con el comando de BASIC LPRINT. 


Función +32 (0H) COMPROBACION DEL TECLADO 


Observa el contenido de la vía de acceso («port») del teclado para comprobar si se 
está pulsando una tecla e inmediatamente retorna. En el caso de que hubiera detectado 
alguna actividad, esta función activa el señalizador de acarreo. 


Función +49 (31H) CREACION DE LAS VARIABLES DEL SISTEMA 


Comprueba cuál es, en el momento de la verificación, el valor actual de la variable 
del sistema CHANS con el fin de ver si ya existen o no las variables adicionales del sistema. 
En caso de que no existan, la función deja espacio libre para ellas e inicializa las variables 
adicionales del sistema que necesita el 1F1. 

Hay que llamar a esta función antes de inicializar cualquiera de las variables adicio- 
nales del sistema. Mientras hay actividad en el canal de la red (también cuando el Interfaz 
RS232 está en funcionamiento) el borde de la pantalla se muestra intermitente. Para evitar 
este destelleo molesto, se puede cambiar el color del borde o bien alterar el valor de la 
variable del sistema IOBORD. Haciendo esto al principio del programa, se puede conseguir 
o bien que tanto el color del borde como el de la pantalla sean iguales, o bien que el 
contraste entre ambos se reduzca (por ejemplo utilizando los colores blanco y amarillo). 
Se utilizaría en este case la función +49 (31H) para asegurarse, antes de hacer referencia 
a ella, de que la variable IOBORD existe. 
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Apéndice A: LAS VARIABLES 
DEL SISTEMA 


A continuación se detallan las variables del sistema correspondientes al software del 
Microdrive, de la Red de Area Local y del Interfaz RS232. Para mantener la coherencia 
con la documentación existente, hemos procurado que los nombres de las variables sean 
similares a los que aparecen en los manuales del Spectrum. 


—058 
—050 


—049 


5C00 
5C08 


5C09 


S5COA 


5C0B 


5COD 


5C0E 


5C10 


5C36 


5C38 


5C39 


5$C3A 


5C3B 


$C3C 
5C3D 


23552 
23560 


23561 


23562 


23563 


23565 


23566 


23568 


23606 


23608 


23609 


23610 


23611 


23612 
23613 


KSTATE 
LAST K 


REPDEL 


REPPER 


DEFADD 


K DATA 


TVDATA 


STRMS 


CHARS 


RASP 


PIP 


ERR NR 


FLAGS 


TV FLAG 
ERR SP 


Se usa para leer del teclado. 

Almacena el valor de la tecla pulsada últi- 
mamente. 

Tiempo (en 1/50 de szgundo - o en 1/60 en 
Norteamérica) que debe presionarse la tecla 
para que se repita. Su valor parte de 35, pero 
es posible alterarlo (POKE) con otros valores. 
Retardo (en 1/50 de segundo - o en 1/60 de 
segundo en Norteamérica) entre repeticiones 
sucesivas de una tecla mantenida oprimida: 
inicialmente vale 5. 

Dirección del argumento de una función defi- 
nida por el usuario, si es que se está valoran- 


do alguna; en otro caso vale O. 
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Almacena el segundo byte del control del co- 
lor introducido por el teclado. 

Almacena bytes de color, controles AT y 
TAB que van a la televisión. 

Direcciones de corrientes de comunicación, 
de entrada y salida (canales asociados). 
Dirección del conjunto de caracteres menos 
256 (que comienza por un espacio y lleva el 
signo de copyright). 

Duración del zumbador de alarma. 

Duración del chasquido del teclado. 

El código de informe menos 1. Se inicializa a 
255 (para —1) por lo que si se examina la 
posición 23610 (PEEK 23610) se obtiene 255. 
Varios señalizadores para control del sistema 
BASIC. 

Señalizadores asociados con la televisión. 
Dirección del elemento de la pila de la máqui- 
na que es usado como retorno de error. 


+ 005 


+ 007 
+ 008 
+ 010 


+ 011 
+013 


+014 


+015 


+017 
+019 
+021 
+ 023 


+025 
+ 027 
+ 029 
+031 


+ 033 
+035 


+037 
+ 039 
+ 041 
+ 043 
+ 045 
+.046 


+048 


+ 049 


+050 


+052 


+054 


+055 


5C3F 


5C41 
5C42 
5C44 


5C45 
5047 


5C48 


5C49 


5C4B 
5C4D 
5C4F 
5C51 


5C53 
5055 
5C57 


5C59 


S5CSB 
SCSD 


SC5SF 
5C61 
5C63 
5C65 
5C67 
5C68 


SC6A 
5C6B 
5C6C 
5C6E 


5C70 


sCc71 ' 


23615 


23617 
23618 
23620 


23621 
23623 


23624 


23625 


23627 
23629 
23631 
23633 


23635 
23637 
23639 
23641 


23643 
23645 


23647 
23649 
23651 
23653 
23655 
23656 


23658 
23659 
23660 
23662 
23664 


23665 


LIST SP 


MODE 
NEWPPC 
NSPPC 


PPC 
SUBPPC 


BORDCR 


E PPC 


VARS 
DEST 
CHANS 
CURCHL 


PROG 
NXTLIN 
DATADD 
E LINE 


K CUR 
CH ADD 


X PTR 
WORKSP 
STKBOT 
STKEND 
BREG 
MEM 


FLAGS2 
DF SZ 

S TOP 
OLDPPC 
OSPCC 


FLAGX 


Dirección de la posición de retorno tras un 
listado automático. 

Especifica el cursor K, L, C,E o G. 

Línea a la que hay que saltar. 

Número de sentencia en una línea a la que 
hay que saltar. Si se ejerce la función POKE 
primeramente a NEWPPC, y luego a NSPPC, 
se fuerza un salto a una sentencia especifica- 
da en una línea. 

Número de línea de la sentencia en curso. 
Número dentro de la línea de la sentencia en 
Curso. 

Color del contorno 8; contiene también los 
atributos que se suelen usar para la mitad 
inferior de la pantalla. 

Número de la línea en curso (con el cursor 
del programa). 

Dirección de las variables. 

Dirección de la variable en la asignación. 
Dirección del canal de datos. 

Dirección de la información que se destina en 
ese momento para entrada y salida. 

Dirección del programa BASIC, 

Dirección de la siguiente línea del programa. 
Dirección de la terminación del último ele- 
mento de datos. 

Dirección del comando que se está escribien- 
do en el teclado, 

Dirección del cursor. 

Dirección del siguiente carácter a interpretar: 
el carácter que sigue al argumento de PEEK, 
o al de NEWLINE al final de una sentencia 
POKE. 

Dirección del carácter que sigue al signo 
Dirección del espacio eventual de trabajo. 
Dirección del fondo de la pila de cálculo. 
Dirección del comienzo del espacio de reserva. 
Registro b del calculador. 

Dirección de la zona utilizada para la memo- 
ria del calculador. (Normalmente MEMBOT, 
pero no siempre). 

Más señalizadores. 

Número de líneas (incluida una en blanco) de 
la mitad inferior de la pantalla. 

El número de la línea superior del programa 
en los listados automáticos. 

Número de línea a la que salta la sentencia 
CONTINUE. 

Número dentro de la línea de la sentencia a la 
que salta la instrucción CONTINUE. 
Señalizadores varios. 
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+056 


+058 


+ 060 


+062 


+065 


+067 
+.068 
+ 069 


+070 


+071 


+ 072 


+074 


+076 


+078 


+079 


+ 080 


+081 
+ 082 


+ 083 


+ 084 


5C72 


5C74 


5C76 


5C78 


5C7B 


5CTD 
SCTE 
S5CTF 


5C80 


5C81 


5C82 


5C384 


5C386 


5C88 


5C89 


S5C8A 


5C8B 
5C8C 


5C8D 


5C8E 


23666 


23668 


23670 


23672 


23675 


23677 
23678 
23679 


23680 


23681 


23682 


23684 


23686 


23688 


23689 


23690 


23691 
23692 


23693 


23694 


STRLEN 
T ADDR 
SEED 


FRAMES 


UDG 


COORDS 


P POSN 


PR CC 


ECHO E 


DF CC 


DFCCL 


S POSN 


SPOSNL 


SCR CT 


ATTR P 


MASK P 


Longitud del destino tipo de cadena en la asig- 
nación. 

Dirección del siguiente elemento en la tabla 
sintáctica (muy difícilmente útil). 

El origen para RND, es la variable que se fija 
mediante la función RANDOMIZE. 

3 bytes (el menos significativo en primer lu- 
gar) del contador de cuadros. Se incrementa 
cada 20 ms. 

Dirección del primer gráfico definido por el 
usuario. Se la puede cambiar, por ejemplo, 
para ahorrar espacio a costa de tener menos 
gráficos definidos por el usuario. 
'Coordenada x del último punto trazado. 
Coordenada y del último punto trazado. 
Número de 33 columnas de la posición de la 
impresora. 

Byte menos significativo correspondiente a la 
dirección de la siguiente posición a imprimir 
en la función PRINT (en la memoria inter- 
media de la impresora). 

No se usa. 

Número de las 33 columnas y número de las 
24 líneas (en la mitad inferior) del final de la 
memoria intermedia de entrada. 


Dirección de la posición de PRINT en el fi- 
chero de la presentación visual. 

Igual que DFCC, pero para la mitad inferior 
de la pantalla. 

Número de las 33 columnas de la posición 
de PRINT. 

Número de las 24 líneas de la posición de 
PRINT. 

Igual que S POSN, pero para la mitad in- 
ferior. 

Línea de la pantalla inferior. 

Contaje de los desplazamientos hacia arriba 
(«scroll»): es siempre una unidad más que el 
número de desplazamientos que se van a ha- 
cer antes de terminar en un scroll? Si se cam- 
bia este valor con un número mayor que 1 
(digamos 255), la pantalla continuará «enro- 
llándose» sin necesidad de nuevas instruc- 
ciones. 


Colores permanentes en curso, etc. (tal y co- 
mo los fijaron las sentencias para el color). 
Se usa para los colores transparentes, etc. 
Cualquier bit que sea 1 indica que el bit co- 
rrespondiente de los atributos no se toma de 
ATTR P, sino de lo que ya está en pantalla. 
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+085 
+ 086 


+ 087 
+ 088 


+118 


+ 120 


+ 122 
+ 123 


5C8F 
5C90 


5C91 
5C92 


SCBO 


5CB2 


5CB4 
S5CB5 


23695 
23696 


23697 
23698 


23728 


23730 


23732 
23733 


ATTR T 
MASK T 


P FLAG 
MEMBOT 


SPARE 2 


RAMTOP 


Colores en uso temporal, etc. (tal como los 
fijaron los elementos de color). 

Igual que MASK P, pero temporal. 

Más señalizadores. 

Zona de memoria destinada al calculador; se 
usa para almacenar números que no pueden 
ser guardados convenientemente en la pila del 
calculador. 

Palabra que sólo es referenciada con NMI O 
0066H. 

Dirección del último byte del BASIC en la 
zona del sistema. (Valor 3E en hexadecimal). 
Dirección del último byte de la RAM física. 
(Byte que indica la última variable del sis- 
tema). 


VARIABLES ADICIONALES DEL SISTEMA UTILIZADAS CON INTERFACE 1 


+ 124 


+ 128 
+137 


+ 139 
+ 140 


+ 141 


+ 142 


+ 143 


5CB6 


5CB7 


5CB9 


SCBA 
5CC3 


5CC5 
S5CC6 


5CC7 


5CC8 


S$CC9 


23734 


23735 


23737 


23738 
23747 


23749 
23750 


23751 


23752 


23753 


FLAGS3 


VECTOR 


SBRT 


SBRTHL 
BAUD 


NTSTAT 
IOBORD 


SER__FL 


SERBYT 


SECTOR 


bit 0: activado mientras se realiza un coman- 
do extendido. 

bit 1: activado cuando se hace CLEAR 4%. 

bit 2: activado al cambiar ERRSP. 

bit 3: activado al utilizar la Red. 

bit 4: activado al hacer LOAD. 

bit 5: activado al hacer SAVE. 

bit 6: activado al hacer MERGE. 

bit 7: activado al hacer VERIFY. 

Utilizado para ampliar el intérprete. 
Normalmente 01FO0. 

Rutina utilizada por la ROM adicional para 
llamar a las rutinas de la ROM normal que 
tengan la forma: 

LD, HL, valor 

CALL rutina 

LD(SCBAH), HL 

RET 


Velocidad del RS232 en baudios. Inicialmen- 
te ODOCH (aproximadamente 19200) (3500000/ 
26* [vel. en baudios]) — 2. 

Número de estación de la Red (1-64). 

Color del borde de la pantalla durante ope- 
raciones de Entrada/Salida. 

Area de trabajo del RS232: el primer byte es 
un señalizador, el segundo el carácter intro- 
ducido. 

Byte del RS232 (durante entrada, 1 = .colo- 
cación de un byte en el «buffer»). 

Area de trabajo del Microdrive. Se utiliza 
normalmente para contar sectores, empezan- 
do por FFH ó 04FBH. 
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+ 145 S5CCB 23755 CHADD__T 
+ 147 SCCD 23757 NTRESP 

+ 148 SCCE 23758 NTDEST 

+ 149 S5CCF 23759 NTSRCE 

+ 150 S5CDO 23760 NTNUMB 
+ 152 5CD2 23762 NTTYPE 

+ 153 5CD3 23763 NTLEN 

+ 154 3CD4 23764 NTDCS 
+485 5CDS5 23765 NTHCS 


Primer especificador de fichero de ocho bytes 


+ 156 5CD6 23766 D__STRI 
+ 158 5CD8 23768 S_STRI 
+159 5CD9 23769 L__STRI 
+ 160 SCDA 23770 N_STRI 
+ 162 SCDC 23772 F_STRI 


Almacenamiento temporal de CH__ADD T 
mientras se realiza una comprobación de la 
sintaxis extendida de líneas. 

Código de respuesta de la Red —número de 
la estación receptora— el reconocimiento ini- 
cial del encabezamiento de 8 bytes de la Red. 
Número de la estación de la Red que es la 
destinataria. 

Número de la estación de la Red emisora. 
Número del bloque de la Red (0-65535). 
Código de tipo del encabezamiento de la Red 
(0: datos, 1: EOF). 

Longitud del bloque de datos de la Red 
(0-255). 

Suma de control («Checksum») del bloque de 
datos de la Red. 

Suma de control del encabezamiento de la 
Red (de NTDEST a NTDCS). 


Inicio del identificador de fichero (8 bytes), 
número de unidad (2 bytes), (1-8), número 
del destinatario o velocidad en baudios. 
Número de corriente (0-15). 

Identificador del canal (mayúsculas). 
Longitud del nombre del fichero. 

Inicio del nombre del fichero (normalmente 
en el área de trabajo). 


Segundo especificador de ficheros de ocho bytes de longitud para ser utilizado 


por MODE y LOAD 

+ 164 SCDE 23774 D__STR2 
+ 166 5CEO 23776 S__STR2 
+167 5CE1 23777 L__STR2 
+ 168 5CE2 23778 N__STR2 
+ 170 5CE4 23780 F__STR2 


Inicio del segundo identificador de fichero 
(8 bytes). 

Número de la corriente 1-15. 

Tipo de dispositivo M/N/T/B. 

Longitud del nombre del fichero (2 bytes). 
Dirección del nombre del fichero. 


Espacio de trabajo para SAVE, LOAD, VERIFY y MERGE 


+ 172 5CE6 23782 HD_ 00 
+ 173 5CE7 23783 HD__0B 
+ 175 S5CE9 23785 HD_ 0D 


Tipo del fichero: 0. programa 
1. conjunto numérico 
2. conjunto de cadenas 
3. bytes. 

Longitud de los datos. 

Inicio de los datos. 
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+177 5CEB 23787 HD__0F Longitud del programa (o nombre del con- 
junto). 

+179 SCED 23789 HD_11 Número de línea para autoiniciación puesta 
en marcha (también empleado por el código 
especial 32H). 


Funciones diversas 


+181 5CEF 23791 COPIES Número de copias múltiples realizadas por 
SAVE. Toma el valor 1 después de un SAVE. 


Inicio del espacio de mapas y canales del Microdrive 


+ 182 S5SCFO 23792 ; 
(PROG) 5D05 23813 Inicio del programa si está activado el IF1 y las corrientes 
están cerradas. 


(PROG)+0 Byte alto del número de línea. 

(PROG)+1 Byte bajo. 

(PROG) +2 Byte bajo de la longitud de la línea de programa. 

(PROG) +3 Byte alto. 

(PROG) +4 Primera palabra reservada «token» de un programa en BASIC (por 
ejemplo REM). 

(PROG)+5 ... Resto del programa en BASIC. 
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Apéndice B: HARDWARE DEL RS232 


La conexión existente en el IF1 es un zócalo de nueve orificios aunque de éstos sólo 
seis están realmente conectados con los circuitos del IF1. Los nueve orificios se numeran en 
dos filas, de derecha a izquierda, si se mira la unidad IF1 desde su parte posterior. La pati- 
lla 1 está, por tanto, en la parte superior derecha y la patilla seis se encuentra debajo de 
ella en la parte inferior derecha. 


Patilla Significado de la señal 


No utilizada. 

Nivel de datos de entrada al Spectrum. 

Nivel de datos de salida del Spectrum. 

Alto = el extremo contrario está activado. 

Alto = el otro extremo está preparado para recepción. 

No utilizada. 

Se mantiene en el nivel bajo como nivel de referencia de la tensión de tierra. 
No utilizada. 

Se mantiene alto para indicar que el Spectrum está conectado. 


NON 0 JD Uh YN — 


Tendrá usted que comprar un conector de tipo D de nueve salidas y un cable que se 
ajuste al zócalo de tipo D en el extremo del enlace RS232 que corresponde al IF1. A través 
de este cable se transmite toda la gama completa de seis señales del IF1 (que reciben en los 
manuales convencionales los nombres TX, RX, DTR, CTS, GND y DSR, respecti- 
vamente). 

Si usted quiere, puede construir su propio cable RS232, transformando una conexión 
de tipo D de nueve salidas en un cable de seis (las señales citadas más arriba) o tres 
(patillas 2, 3 y 7) hilos. 

Para lograr el interfaz de tres hilos tendrá usted que soldar o conectar la patilla 9 
(en el nivel alto, momento en que el Spectrum se pone en marcha) a las patillas 4 y 5 de 
la conexión D de nueve salidas. De esta manera, el IF1 no tendrá jamás que esperar inde- 
finidamente a lo que le llegue del otro extremo del cable para entrar en acción. Natu- 
ralmente, conviene que el otro extremo esté preparado cuando el Spectrum empiece a 
enviar información. 

Sea cual sea el cable del que usted disponga, el «fallo» inicial más normal parece 
deberse a la confusión que normalmente rodea a las patillas 2 y 3 de las conexiones 
y zócalos RS232. La señal sale del IF1 a través de la patilla 3. Los datos se espera 
que lleguen al IF1 a través de la patilla 2. Si, en el momento en que usted compruebe su 
cable, no parece que ocurra nada, puede ser útil intercambiar los hilos correspondientes 
a las patillas 2 y 3 de cualquiera de los dos extremos del cable. 

Solamente los diseñadores de sistemas tienen que preocuparse de otro problema mucho 
más raro: el 8251A (una mejora del chip 8251 de Intel), puede enviar, en algún momento, 
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caracteres duplicados cuando se utilice la línea de control CTS. La solución consiste en 
retocar la rutina de control del 8251A para asegurarse de que el «buffer» de transmisión 
está vacío en el momento en que se va a transmitir el byte siguiente. Tenga en cuenta que 
éste es un problema debido al «otro sistema» y que el IF1 no hace más que ponerlo en 
evidencia. 
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Apéndice C: HARDWARE 
DEL MICRODRIVE 


El Microdrive es un pequeño e ingenioso magnetófono que acepta cartuchos inter- 
cambiables que contienen una cinta de bucle continuo. Si usted es uno de esos que sienten 
la impetuosa necesidad de echar una mirada al interior de su Microdrive, le diremos que 
los tornillos principales quedan ocultos tras la placa metálica (la que lleva los colores del 
Spectrum en la esquina). También existe una pequeña trampilla en la parte posterior, cerca 
de la base de la unidad. Le advertimos que su garantía quedará sin efecto si usted retira 
estos tornillos. 

Conjuntamente con el IF1 se ofrece un cable que se conecta entre la parte izquierda 
de la unidad y el primer Microdrive. Este cable es simétrico, tanto física como eléctrica- 
mente, y, por tanto, no importa de qué manera se conecte con tal de que no quede 
doblado o retorcido. 

Se pueden conectar conjuntamente hasta un total de ocho Microdrives, colocando entre 
cada dos de ellos un zócalo que se encargue de transmitir las señales a lo largo de la cadena. 
El Microdrive más cercano al IF1 recibe el número 1 y así sucesivamente hasta llegar al 
número 8. 

Los cartuchos que se utilizan con el Microdrive contienen, como se ha dicho, un bucle 
continuo de cinta y los dispositivos necesarios para su funcionamiento. Todo esto encap- 
sulado en una pequeña caja que tan sólo mide 34 mm de ancho por 45 mm de largo 
y 8 mm de espesor. Puede abrirse la caja sosteniéndola por los lados y tirando del extremo 
del cartucho. 

Cada cartucho se vende con una cierta cantidad de etiquetas y números adhesivos. 
Las etiquetas alargadas se colocan en la parte visible del cartucho y las etiquetas rectangula- 
res en el área plana que queda oculta cuando el cartucho se guarda en su caja. (Desgracia- 
damente el manual del Interface 1 describe el extremo del cartucho como su parte «superior» 
y la parte plana como el «lado» como si el Microdrive estuviera boca arriba). 

Todos los cartuchos llevan una pestaña de protección contra escritura similar a las de las 
cintas de casete. Sin embargo, la ausencia de esta pestaña no impide físicamente la escri- 
tura: el IF1 comprueba si existe esa pestaña antes de realizar una operación de escritura. 


LA COLOCACION Y LA EXTRACCION DE CARTUCHOS DEL MICRODRIVE 


Antes de colocar el cartucho en la unidad de Microdrive hay que asegurarse de que 
el Spectrum está conectado y de que la luz roja, situada en la parte frontal del Microdrive, 
está apagada. Extraiga el cartucho de su caja y manténgalo con la etiqueta hacia arriba. 
Introdúzcalo en la ranura del Microdrive hasta que sólo se vea la mitad de la etiqueta. 
Luego, apriételo firmemente. Durante esta última fase de la introducción parece como si el 
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cartucho no fuera a entrar bien. Sin embargo, la parte ranurada del cartucho tiene que 
acabar ajustándose perfectamente al nivel de la ranura. 

No extraiga nunca el cartucho del Microdrive cuando esté encendida la luz roja. Si, 
por cualquier motivo ésta permanece encendida durante más de dos minutos puede muy 
bien haber ocurrido que el software haya perdido el control del Microdrive. Una posible 
solución a esta situación consiste en desconectar todo el sistema y luego extraer la cinta. 
De todas maneras, las variaciones de tensión ocurridas durante esos momentos pueden 
haber dañado la parte de la cinta que se encontraba justo debajo de la cabeza de lectura. 


EL ALMACENAMIENTO DE INFORMACION EN LOS CARTUCHOS 
DEL MICRODRIVE 


La información se almacena en los cartuchos en sectores de longitud fija. Durante la 
operación de formateado cada componente de un sector requiere los siguientes tiempos que 
se expresan de forma aproximada en milisegundos. 


Bloque de cabecera 1.1ms Nombre del cartucho, número del sector de la suma 
de control («checksum»). 

Espacio en blanco (gap) 3.2 ms 

Control y datos 21.2 ms Fichero, registro, longitud, señalizador, datos, suma 
de control («checksum»). 

Espacio en blanco (gap) 6.1 ms 

TOTAL 31.6 ms 


Por tanto, el formateado de todo un sector requiere aproximadamente unos 32 ms. 
Según la longitud exacta del bucle de cinta y la velocidad del motor de la unidad de Micro- 
drive, el cartucho (que debe durar unos siete segundos) puede almacenar entre 210 y 230 
sectores. El software del IF1 toma, como límite máximo, 256 sectores. 

Puesto que cada sector tiene una capacidad de 512 bytes de datos, el almacenamiento 
total de una cinta oscila entre los 105 Kbytes y los 115 Kbytes. Teniendo en cuenta los 
defectos de la cinta (por ejemplo, sectores que se han marcado como no disponibles), la 
capacidad de almacenamiento real va de los 85 Kbytes a los 100 Kbytes. Todas aquellas cintas 
que, después de una operación FORMAT, ofrezcan menos de 85 Kbytes deben considerarse 
como inútiles. 
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Apéndice D: DATOS DE LOS CANALES 
DEL MICRODRIVE 


Esta información se ha extraído de los manuales del Microdrive y del Interface 1. 

Cada vez que se abre un fichero del Microdrive se crea un área llamada “canal” que 
tiene una longitud de 595 bytes. Este área se inserta en el espacio comprendido entre la 
dirección a la que apunta la variable del sistema CHANS y la dirección a la que apunta 
la variable del sistema PROG. El programa se desplaza hacia arriba en la memoria en direc- 
ción a la posición de memoria guardada en la variable del sistema STKEND. Normal- 
mente cuando se utilizan programas en Código Máquina, el registro IX se utiliza para 
direccionar los canales. 


+00 DEFW 0008 ¡;RSTO8 Intercepta salida de dirección. 
+02 DEFW 0008  ¡RSTO8 Intercepta entrada de dirección. 
+ 04 DEFB 4D ¿“M? por Microdrive. 

+05 DEFW Rutina de salida; en la ROM del IF1 

+07 DEFW Rutina de entrada; en la ROM del IF1. 

+09 DEFW +595 ; Longitud del «buffer». 


; Contador de bytes del canal actual en el área de datos. 
+11 CHBYTE: DEFW 0; Siguiente byte de datos al que se debe acceder entre 
0-512? 


; Número de registro dentro del fichero 


+13 CHREC: DEFB 0; Rango entre 0-255. 

+14 CHNAME: —DEFB Nombre de fichero de 10 caracteres, espacios para resu- 
men fichero al final del mismo. 

+24 CHFLAG: DEFB O; El bit O se activa si se está escribiendo, en otro caso, 
lectura; los otros bits no se utilizan. 

+25 CHDRIV: DEFB 0; Número de unidad de Microdrive 1-8. 

+26 CHMAP: DEFW Dirección del mapa correspondiente a esta unidad. 

+ 28 DEFB 12 bytes de «preámbulo» para el espacio de trabajo de la 
cabecera. 

+40 HDFLAG: —DEFB El bit O del byte señalizador queda activado (en utiliza- 
ción), 1-7 no se emplean. 

+41 HDNUMB:  DEFB Número del sector entre 0-255. 

+42 DEFW No utilizado. 

+ 44 HDNAME: —DEFB Nombre del cartucho (10 caracteres) espacios para resu- 
men fichero al final del mismo. 
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+54 
+55 


HDCHK: 


DEFB 
DEFB 


Suma de control («checksum») de la cabecera. 
12 bytes de «preámbulo» para el espacio de trabajo de 
datos. 


; Este es el inicio del bloque de datos tal y como se escribe en el cartucho. 


+67 


+81 


+ 82 
+ 594 


RECFLG: 


RECNUM: 


RECLEN: 


RECNAM: 


DESCHK: 


CHDATA: 


DCHK: 


DEFB 


DEFB 
DEFW 
DEFB 
DEFB 


DEFB 
DEFB 


Byte señalizador del registro el bit 0=0; 1=último re- 
gistro del fichero. 

; bit 2=no se trata de un fichero de impresión (PRINT) 
(es decir, seguro, no legible). 

; bits 3-7 no utilizados. 

Número del registro entre O y 255. 

Longitud del registro en bytes 0-512. 

Nombre del fichero (10 bytes), espacios para resumen 
fichero al final del mismo. 

Suma de control («checksum») de los anteriores 14 bytes 
contados a partir de RECNUM. 

512 bytes de datos del canal. 

Suma de control («checksum») de los anteriores 512 bytes. 


; Este es el final del bloque de datos tal y como se escribe en el cartucho. 
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Apéndice E: DATOS DE LOS CANALES 
DE LA RED 


Cuando se abre una corriente para la Red, se crea un canal en el área CHAN__S tal 
y como describimos al hablar de los canales del Microdrive. Los canales de la Red tienen 
una longitud de 276 bytes y contienen un «buffer» de 255 bytes. El registro IX se utiliza 
normalmente para direccionar los canales cuando se trabaja en Código Máquina. 

También se crean canales temporales para la Red que duran el tiempo necesario para 
efectuar una Operación SAVE, LOAD, VERIFY o MERGE. 


+00 DEFW 8 

+ 02 DEFW 8 

+04 DEFB 4E;N” 

+05 DEFW Dirección de la subrutina de la salida en la ROM. 
+07 DEFW Dirección de la subrutina de entrada en la ROM. 
+09 DEFW + 276; longitud. 

+11 NCIRIS: DEFB Número de la estación de destino. 


+12 NCSELF: DEFB Número de la estación de este Spectrum (origen). 
413 NCNUMB: DEFW Número del bloque. 
+15 NCTYPE: DEFB Tipo de paquete O =datos, 1=EOF. 


+16 NCOBL: DEFB Número de bytes contenido en el bloque de datos 0-255. 
+17 NCDCS: DEFB Suma de control («checksum») de los datos. 

+18 NCHCS: DEFB Suma de control («checksum») de la cabecera. 

+19 NCCUR: DEFB Posición del último byte de datos obtenido. 

+20 NCIBL: DEFB Número de bytes de datos válido. 

+21 NCB: DEFB «Buffer» de datos de 255 bytes. 

+275 Ultimo byte de datos. 
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Apéndice F: ALGORITMOS DE LA RED 


TRANSMISION A TRAVES DE LA RED 


Paso 1 
Espérese durante un intervalo aleatorio (que puede durar de dos a tres milisegundos) 
a que la Red esté libre. 


Paso 2 . 
Envíese una breve señal de reconocimiento. Si se produce una colisión (alguien está 
transmitiendo al mismo tiempo) entonces repítase desde el paso 1. 


Paso 3 
Envíese el paquete de cabecera que está formado por los 8 bytes que van desde 
NCIRIS a NCHCS inclusive, en el área de canales de la Red. 


Paso 4 
Si después de un milisegundo no se ha recibido el reconocimiento de la llegada del 
paquete, entonces repítase desde el paso 1. 


Paso 5 
Envíese el paquete de datos de longitud variable (hasta 255 bytes) extrayéndolo del 
«buffer» de datos. 


Paso 6 
Si después de un milisegundo no se ha recibido reconocimiento de la llegada del paquete, 
repitase desde el paso 1. 


RECEPCION A TRAVES DE LA RED 


En total, el paquete de cabecera y el de exploración requieren 1,6 ms y su envío se 
repite aproximadamente cada ocho milisegundos hasta que se recibe el reconocimiento de su 
llegada. La transmisión de un paquete de exploración, otro de cabecera y otro de datos de 
tamaño máximo requiere aproximadamente 37 ms. 


Paso 1 
Espérese al menos durante dos milisegundos a que la Red esté libre. 


Paso 2 
Espérese a que haya alguna actividad en la Red. Esto se detecta por la aparición 
de una señal de exploración. 
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Paso 3 
Recíbase el paquete de cabecera y verifíquese la suma de control («checksum»). Esta 
suma confirma que la cabecera transporta los números correctos de emisión (estación 
o emisión) y destino (estación), así como el número de mensaje correcto. Si la suma 
de control no es correcta, entonces hay que repetir todos los pasos desde el paso 1. 
Envíese un reconocimiento a menos de que se trate de una emisión. 


Paso 4 
Recíbase el bloque de datos y verifíquese la suma de control. Si esta suma no es 


correcta hay que repetir desde el paso 1. Envíese un reconocimiento a menos de que 
se trate de una emisión. 
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Apéndice G: RESUMEN DE FUNCIONES 


Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 
Función 


+27 (1BH) 
+28 (1CH) 
+ 29 (1DH) 
+30 (1EH) 
+31 (1FH) 
+ 32 (0H) 
+33 (21H) 
+ 34 (22H) 
+35 (23H) 
+36 (24H) 
+37 (25H) 
+38 (26H) 
+39 (27H) 
+40 (28H) 
+41 (29H) 
+42 QAH) 
+43 (2BH) 
+ 44 (2CH) 
+ 45 (2DH) 
+46 (QEH) 
+47 (2FH) 
+ 48 (30H) 
+ 49 (31H) 


ENTRADA POR CONSOLA 
SALIDA POR CONSOLA 

RECIBIR UN BYTE A TRAVES DEL RS232 CON TEMPORIZACION 
ENVIAR UN BYTE A TRAVES DEL RS232 

SALIDA POR LA IMPRESORA ZX 

COMPROBACION DEL TECLADO 
SELECCIONAR/DES-SELECCIONAR UNIDAD DE MICRODRIVE 
ABRIR UN FICHERO DE DATOS DEL MICRODRIVE 

CERRAR UN FICHERO DE DATOS DEL MICRODRIVE 

BORRAR UN FICHERO DEL MICRODRIVE 

LEER UN REGISTRO DE DATOS DEL MICRODRIVE (SECUENCIALMENTE) 
ESCRIBIR UN REGISTRO DE DATOS DEL MICRODRIVE 

LEER UN REGISTRO ALEATORIO DE MICRODRIVE 

LEER UN SECTOR DEL MICRODRIVE 


-LEER EL SIGUIENTE SECTOR DEL MICRODRIVE 


ESCRIBIR UN SECTOR DEL MICRODRIVE 
CREAR AREA DE CANALES DEL MICRODRIVE 
BORRAR AREA DE CANALES DEL MICRODRIVE 
ABRIR UN CANAL DE LA RED 

CERRAR UN CANAL DE LA RED 

RECIBIR UN PAQUETE A TRAVES DE LA RED 
ENVIAR UN PAQUETE A TRAVES DE LA RED 
CREAR LAS VARIABLES DEL SISTEMA 
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Apéndice H: MENSAJES DEL 
INTERFACE 1 


Los mensajes procedentes del IF1 no son directamente accesibles desde el Código 
Máquina del Spectrum. Los damos aquí para mostrar toda la gama de mensajes posibles. 

El informe de error número 8 «end of file» («fin de fichero») del manual de progra- 
mación de BASIC queda activado cuando el IF1 está en funcionamiento. Este error ocurre, 
por ejemplo, cuando se intenta ver más allá del último dato almacenado en el canal de la 
Red. El «número de informe» del BASIC correspondiente a los mensajes normales del 
Spectrum es mayor en una unidad que el índice de mensajes utilizado en la ROM. 

El índice de mensajes del IF1 que damos más abajo está en decimal y hexadecimal, 
seguido del texto del mensaje correspondiente. 


—01 FF «Programa terminado». 
+00 00 «Sin sentido en BASIC». 


Normalmente se utilizan cuando faltan cosas como, por ejemplo, una comilla. 


+01 01 «Número de corriente no válido». 

+02 02 «Expresión de dispositivos no correcta». 

+03 03 «Nombre incorrecto». 

+04 04 «Número de Microdrive incorrecto». 

+05 05 «Número de estación incorrecto». 

+06 06 «Falta un nombre». 

+07 07 «Falta el número de la estación». 

+08 08 «Falta el número de la unidad de Microdrive». 
+09 09 «Falta la velocidad en baudios». 

+10 OA «Error de ajuste de la cabecera». 


¿Error de Suma de control («checksum») en un sector de cabecera? 


+11 OB «Corriente ya abierta». 

+12 0C «Escritura sobre un fichero de lectura». 

+13 OD «Lectura de un fichero de escritura». 

+14 OE «Unidad de Microdrive protegida contra escritura». 
+15 OF «Microdrive lleno». 

+16 10 «No hay Microdrive». 

+17 11 «Fichero no encontrado». 

+18 12 «Error de código Hook». 
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El número de la función 1F1 después de realizado el RST 08 está fuera de límites 


+19 13 «Error en CODE». 

+20 14 «Error en MERGE». 

+21 15 «La verificación no ha tenido éxito». 
+22 16 «Tipo de fichero incorrecto». 
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